ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
pm_fftnr::getFFTI Interface Reference

Generate and return the Inverse (normalized by 2 / size(data)) Fourier Transform of a periodic sequence of type complex or real of arbitrary kind parameter. More...

Detailed Description

Generate and return the Inverse (normalized by 2 / size(data)) Fourier Transform of a periodic sequence of type complex or real of arbitrary kind parameter.

See the documentation of pm_fftnr for more details.

Parameters
[in]data: The input contiguous vector of arbitrary size of,
  1. type complex of kind any supported by the processor (e.g., CK, CK32, CK64, or CK128),
  2. type real of kind any supported by the processor (e.g., RK, RK32, RK64, or RK128),
containing the periodic sequence whose FFT is to be computed.
Returns
fft : The output vector of size getExpNext(size(data), 2) of the same type and kind as the input data, containing the FFT result.


Possible calling interfaces

use pm_fftnr, only: getFFTI
type_of(data) :: fft(1 : getExpNext(size(data)))
fft(:) = getFFTI(data(:))
Generate and return the Inverse (normalized by 2 / size(data)) Fourier Transform of a periodic sequen...
Definition: pm_fftnr.F90:428
This module contains procedures and generic interfaces for computing the Discrete Fourier Transform o...
Definition: pm_fftnr.F90:184
Remarks
The procedures under discussion are impure.
Note
This functional generic interface is simply a more flexible but slower wrapper around the subroutine generic interface setFFTR.
As such, this functional interface can be significantly slower than the corresponding subroutine interface.
See also
getFFTF
getFFTR
getFFTI
setFFTF
setFFTR
setFFTI


Example usage

1program example
2
3 use pm_kind, only: SK, IK, LK
4 use pm_io, only: display_type
5 use pm_fftnr, only: getFFTF, getFFTI
6 use pm_distUnif, only: getUnifRand
7 use pm_mathCompare, only: isClose
8 use pm_err, only: setAsserted
9
10 implicit none
11
12 integer(IK) :: i
13 integer(IK) :: lenData
14 type(display_type) :: disp
15 disp = display_type(file = "main.out.F90")
16
17 do i = 1, 5
18 block
19 use pm_kind, only: TKG => CKS
20 real(TKG) :: reltol
21 complex(TKG), allocatable :: data(:), atad(:)
22 call disp%show("lenData = getUnifRand(5, 100)")
23 lenData = getUnifRand(5, 100)
24 call disp%show("lenData")
25 call disp%show( lenData )
26 call disp%show("data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)")
27 data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
28 call disp%show("data")
29 call disp%show( data )
30 call disp%skip()
31 call disp%show("atad = getFFTI(getFFTF(data))")
32 atad = getFFTI(getFFTF(data))
33 call disp%show("atad")
34 call disp%show( atad )
35 call disp%show("reltol = sqrt(epsilon(1._TKG))")
36 reltol = sqrt(epsilon(1._TKG))
37 call disp%show("reltol")
38 call disp%show( reltol )
39 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")
40 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )
41 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
42 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
43 call disp%skip()
44 end block
45
46 block
47 use pm_kind, only: TKG => CKD
48 real(TKG) :: reltol
49 complex(TKG), allocatable :: data(:), atad(:)
50 call disp%show("lenData = getUnifRand(5, 100)")
51 lenData = getUnifRand(5, 100)
52 call disp%show("lenData")
53 call disp%show( lenData )
54 call disp%show("data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)")
55 data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
56 call disp%show("data")
57 call disp%show( data )
58 call disp%skip()
59 call disp%show("atad = getFFTI(getFFTF(data))")
60 atad = getFFTI(getFFTF(data))
61 call disp%show("atad")
62 call disp%show( atad )
63 call disp%show("reltol = sqrt(epsilon(1._TKG))")
64 reltol = sqrt(epsilon(1._TKG))
65 call disp%show("reltol")
66 call disp%show( reltol )
67 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")
68 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )
69 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
70 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
71 call disp%skip()
72 end block
73
74 block
75 use pm_kind, only: TKG => CKH
76 real(TKG) :: reltol
77 complex(TKG), allocatable :: data(:), atad(:)
78 call disp%show("lenData = getUnifRand(5, 100)")
79 lenData = getUnifRand(5, 100)
80 call disp%show("lenData")
81 call disp%show( lenData )
82 call disp%show("data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)")
83 data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
84 call disp%show("data")
85 call disp%show( data )
86 call disp%skip()
87 call disp%show("atad = getFFTI(getFFTF(data))")
88 atad = getFFTI(getFFTF(data))
89 call disp%show("atad")
90 call disp%show( atad )
91 call disp%show("reltol = sqrt(epsilon(1._TKG))")
92 reltol = sqrt(epsilon(1._TKG))
93 call disp%show("reltol")
94 call disp%show( reltol )
95 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")
96 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )
97 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
98 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
99 call disp%skip()
100 end block
101
102 block
103 use pm_kind, only: TKG => RKS
104 real(TKG) :: reltol
105 real(TKG), allocatable :: data(:), atad(:)
106 call disp%show("lenData = getUnifRand(5, 100)")
107 lenData = getUnifRand(5, 100)
108 call disp%show("lenData")
109 call disp%show( lenData )
110 call disp%show("data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)")
111 data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
112 call disp%show("data")
113 call disp%show( data )
114 call disp%skip()
115 call disp%show("atad = getFFTI(getFFTF(data))")
116 atad = getFFTI(getFFTF(data))
117 call disp%show("atad")
118 call disp%show( atad )
119 call disp%show("reltol = sqrt(epsilon(1._TKG))")
120 reltol = sqrt(epsilon(1._TKG))
121 call disp%show("reltol")
122 call disp%show( reltol )
123 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")
124 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )
125 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
126 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
127 call disp%skip()
128 end block
129
130 block
131 use pm_kind, only: TKG => RKD
132 real(TKG) :: reltol
133 real(TKG), allocatable :: data(:), atad(:)
134 call disp%show("lenData = getUnifRand(5, 100)")
135 lenData = getUnifRand(5, 100)
136 call disp%show("lenData")
137 call disp%show( lenData )
138 call disp%show("data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)")
139 data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
140 call disp%show("data")
141 call disp%show( data )
142 call disp%skip()
143 call disp%show("atad = getFFTI(getFFTF(data))")
144 atad = getFFTI(getFFTF(data))
145 call disp%show("atad")
146 call disp%show( atad )
147 call disp%show("reltol = sqrt(epsilon(1._TKG))")
148 reltol = sqrt(epsilon(1._TKG))
149 call disp%show("reltol")
150 call disp%show( reltol )
151 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")
152 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )
153 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
154 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
155 call disp%skip()
156 end block
157
158 block
159 use pm_kind, only: TKG => RKH
160 real(TKG) :: reltol
161 real(TKG), allocatable :: data(:), atad(:)
162 call disp%show("lenData = getUnifRand(5, 100)")
163 lenData = getUnifRand(5, 100)
164 call disp%show("lenData")
165 call disp%show( lenData )
166 call disp%show("data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)")
167 data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
168 call disp%show("data")
169 call disp%show( data )
170 call disp%skip()
171 call disp%show("atad = getFFTI(getFFTF(data))")
172 atad = getFFTI(getFFTF(data))
173 call disp%show("atad")
174 call disp%show( atad )
175 call disp%show("reltol = sqrt(epsilon(1._TKG))")
176 reltol = sqrt(epsilon(1._TKG))
177 call disp%show("reltol")
178 call disp%show( reltol )
179 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")
180 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )
181 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
182 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
183 call disp%skip()
184 end block
185 end do
186
187end program example
Generate and return a scalar or a contiguous array of rank 1 of length s1 of randomly uniformly distr...
Verify the input assertion holds and if it does not, print the (optional) input message on stdout and...
Definition: pm_err.F90:735
Generate and return an object of type stop_type with the user-specified input attributes.
Definition: pm_err.F90:1618
Generate and return the Forward Fourier Transform (a.k.a. Fourier Analysis) of a periodic sequence of...
Definition: pm_fftnr.F90:250
This is a generic method of the derived type display_type with pass attribute.
Definition: pm_io.F90:11508
Generate and return .true. if the two input values are sufficiently close to each other within the sp...
This module contains classes and procedures for computing various statistical quantities related to t...
This module contains classes and procedures for reporting and handling errors.
Definition: pm_err.F90:52
This module contains classes and procedures for input/output (IO) or generic display operations on st...
Definition: pm_io.F90:252
type(display_type) disp
This is a scalar module variable an object of type display_type for general display.
Definition: pm_io.F90:11393
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
Definition: pm_kind.F90:268
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
Definition: pm_kind.F90:541
integer, parameter CKH
The scalar integer constant of intrinsic default kind, representing the highest-precision complex kin...
Definition: pm_kind.F90:843
integer, parameter CKS
The single-precision complex kind in Fortran mode. On most platforms, this is a 32-bit real kind.
Definition: pm_kind.F90:570
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
Definition: pm_kind.F90:540
integer, parameter CKD
The double precision complex kind in Fortran mode. On most platforms, this is a 64-bit real kind.
Definition: pm_kind.F90:571
integer, parameter RKD
The double precision real kind in Fortran mode. On most platforms, this is an 64-bit real kind.
Definition: pm_kind.F90:568
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
Definition: pm_kind.F90:539
integer, parameter RKH
The scalar integer constant of intrinsic default kind, representing the highest-precision real kind t...
Definition: pm_kind.F90:858
integer, parameter RKS
The single-precision real kind in Fortran mode. On most platforms, this is an 32-bit real kind.
Definition: pm_kind.F90:567
This module contains the procedures and interfaces for evaluating the relative or absolute proximity ...
Generate and return an object of type display_type.
Definition: pm_io.F90:10282

Example Unix compile command via Intel ifort compiler
1#!/usr/bin/env sh
2rm main.exe
3ifort -fpp -standard-semantics -O3 -Wl,-rpath,../../../lib -I../../../inc main.F90 ../../../lib/libparamonte* -o main.exe
4./main.exe

Example Windows Batch compile command via Intel ifort compiler
1del main.exe
2set PATH=..\..\..\lib;%PATH%
3ifort /fpp /standard-semantics /O3 /I:..\..\..\include main.F90 ..\..\..\lib\libparamonte*.lib /exe:main.exe
4main.exe

Example Unix / MinGW compile command via GNU gfortran compiler
1#!/usr/bin/env sh
2rm main.exe
3gfortran -cpp -ffree-line-length-none -O3 -Wl,-rpath,../../../lib -I../../../inc main.F90 ../../../lib/libparamonte* -o main.exe
4./main.exe

Example output
1lenData = getUnifRand(5, 100)
2lenData
3+88
4data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
5data
6(+1.04637408, +0.212736070), (+1.86826539, +0.335937381), (+1.64504778, +0.316519082), (+1.69511557, +0.372224033), (+1.82690930, +0.546209991), (+1.07788348, +0.760241747E-1), (+1.47228265, +0.232499361), (+1.74793136, +0.354358196), (+1.15923977, +0.671459377), (+1.04516172, +0.340617239), (+1.12704813, +0.884136319), (+1.00051069, +0.557040811), (+1.79395473, +0.991854787), (+1.09781480, +0.377943635), (+1.38477349, +0.341077447), (+1.75538492, +0.932726145), (+1.13982105, +0.368694067), (+1.97572112, +0.968461096), (+1.42618334, +0.877164602), (+1.34794056, +0.878111780), (+1.74001527, +0.542697251), (+1.34072447, +0.954197645), (+1.46036768, +0.644467890), (+1.43327427, +0.172459126), (+1.07293868, +0.576514006E-1), (+1.26735759, +0.312598884), (+1.47612357, +0.577669680), (+1.66924560, +0.337671399), (+1.75967479, +0.700603962), (+1.00819230, +0.589543462), (+1.06662583, +0.674336612), (+1.72730470, +0.207256079E-1), (+1.08834124, +0.594484806), (+1.12641382, +0.932734847), (+1.85623479, +0.252668679), (+1.17751241, +0.791077793), (+1.43744183, +0.830726206), (+1.79004145, +0.547695279), (+1.87710190, +0.801834047), (+1.08924532, +0.673967957), (+1.83883250, +0.899366140), (+1.23272228, +0.649186075), (+1.58442330, +0.529651403), (+1.91309190, +0.138220310), (+1.60941434, +0.921421647E-1), (+1.43449497, +0.441167355), (+1.14497137, +0.236394405), (+1.92303157, +0.638861239), (+1.68751121, +0.594066501), (+1.09729671, +0.102706552E-1), (+1.77320004, +0.857184350), (+1.53031087, +0.636145294), (+1.21428227, +0.787027419), (+1.78167784, +0.410456717), (+1.94061136, +0.912327766E-1), (+1.71497679, +0.841625869), (+1.14755225, +0.326280534), (+1.47326267, +0.843486190), (+1.04675245, +0.109553695), (+1.89971888, +0.267439425), (+1.83143425, +0.526875913), (+1.55049324, +0.131803155), (+1.35746562, +0.942488551), (+1.67619646, +0.420981586), (+1.80902767, +0.710692525), (+1.36285770, +0.363816500), (+1.96708536, +0.262156308), (+1.37469125, +0.420231819), (+1.33593559, +0.682525635), (+1.78267157, +0.371818662), (+1.26359701, +0.241898835), (+1.81007361, +0.134096205), (+1.10290933, +0.902393818), (+1.14873981, +0.443922579), (+1.00705552, +0.646905184), (+1.38608551, +0.628355742E-1), (+1.26945686, +0.285802364), (+1.20115185, +0.186092854E-1), (+1.97645938, +0.897748530), (+1.98361194, +0.297672451), (+1.77455223, +0.459031820), (+1.82317090, +0.212014139), (+1.99457979, +0.548869908), (+1.09014106, +0.251111627), (+1.77241635, +0.988122404), (+1.93970203, +0.704778552), (+1.02678585, +0.578335583), (+1.46352363, +0.837023854)
7
8atad = getFFTI(getFFTF(data))
9atad
10(+1.04637384, +0.212736100), (+1.86826527, +0.335937589), (+1.64504743, +0.316519052), (+1.69511521, +0.372224092), (+1.82690883, +0.546209931), (+1.07788348, +0.760240853E-1), (+1.47228241, +0.232499138), (+1.74793100, +0.354358017), (+1.15923965, +0.671459436), (+1.04516184, +0.340617388), (+1.12704825, +0.884136260), (+1.00051081, +0.557040930), (+1.79395449, +0.991854906), (+1.09781504, +0.377943635), (+1.38477349, +0.341077477), (+1.75538492, +0.932726264), (+1.13982105, +0.368694127), (+1.97572076, +0.968461215), (+1.42618310, +0.877164662), (+1.34794044, +0.878111839), (+1.74001491, +0.542697310), (+1.34072447, +0.954197586), (+1.46036792, +0.644467831), (+1.43327391, +0.172459424), (+1.07293856, +0.576515272E-1), (+1.26735759, +0.312599033), (+1.47612357, +0.577669740), (+1.66924548, +0.337671518), (+1.75967455, +0.700604081), (+1.00819230, +0.589543462), (+1.06662583, +0.674336672), (+1.72730458, +0.207256302E-1), (+1.08834100, +0.594484746), (+1.12641370, +0.932734728), (+1.85623479, +0.252668560), (+1.17751241, +0.791077554), (+1.43744171, +0.830726087), (+1.79004145, +0.547695041), (+1.87710214, +0.801833630), (+1.08924532, +0.673967957), (+1.83883238, +0.899366021), (+1.23272216, +0.649185956), (+1.58442330, +0.529651284), (+1.91309166, +0.138220310), (+1.60941398, +0.921420455E-1), (+1.43449497, +0.441167295), (+1.14497161, +0.236394525), (+1.92303121, +0.638861060), (+1.68751109, +0.594066381), (+1.09729648, +0.102704465E-1), (+1.77320004, +0.857184231), (+1.53031063, +0.636144996), (+1.21428227, +0.787027240), (+1.78167772, +0.410456717), (+1.94061148, +0.912325084E-1), (+1.71497643, +0.841625571), (+1.14755201, +0.326280445), (+1.47326231, +0.843486130), (+1.04675245, +0.109553561), (+1.89971852, +0.267439365), (+1.83143401, +0.526875913), (+1.55049300, +0.131803215), (+1.35746551, +0.942488492), (+1.67619610, +0.420981407), (+1.80902767, +0.710692525), (+1.36285746, +0.363816530), (+1.96708536, +0.262156218), (+1.37469113, +0.420231581), (+1.33593559, +0.682525635), (+1.78267169, +0.371818632), (+1.26359701, +0.241898641), (+1.81007338, +0.134096086), (+1.10290897, +0.902393818), (+1.14873946, +0.443922549), (+1.00705552, +0.646905124), (+1.38608539, +0.628356040E-1), (+1.26945651, +0.285802394), (+1.20115185, +0.186093152E-1), (+1.97645926, +0.897748590), (+1.98361182, +0.297672540), (+1.77455211, +0.459031761), (+1.82317054, +0.212014139), (+1.99457967, +0.548869669), (+1.09014130, +0.251111537), (+1.77241647, +0.988122225), (+1.93970203, +0.704778492), (+1.02678609, +0.578335524), (+1.46352375, +0.837023795), (-0.119209290E-6, -0.260770321E-6), (-0.596046448E-7, -0.327825546E-6), (+0.178813934E-6, +0.00000000), (+0.178813934E-6, -0.596046448E-7), (-0.119209290E-6, -0.298023224E-7), (+0.238418579E-6, +0.894069672E-7), (+0.238418579E-6, +0.00000000), (+0.238418579E-6, +0.275671482E-6), (-0.238418579E-6, +0.596046448E-7), (-0.119209290E-6, +0.894069672E-7), (+0.596046448E-7, +0.283122063E-6), (+0.596046448E-7, +0.298023224E-6), (-0.119209290E-6, +0.178813934E-6), (+0.00000000, +0.238418579E-6), (+0.178813934E-6, +0.357627869E-6), (+0.596046448E-7, +0.357627869E-6), (-0.178813934E-6, +0.298023224E-7), (+0.119209290E-6, -0.596046448E-7), (+0.238418579E-6, +0.894069672E-7), (+0.178813934E-6, +0.178813934E-6), (-0.119209290E-6, +0.178813934E-6), (+0.178813934E-6, +0.193715096E-6), (+0.596046448E-7, +0.178813934E-6), (-0.119209290E-6, +0.119209290E-6), (+0.119209290E-6, +0.894069672E-7), (+0.00000000, +0.298023224E-7), (+0.178813934E-6, +0.298023224E-6), (+0.178813934E-6, +0.387430191E-6), (+0.596046448E-7, +0.208616257E-6), (+0.596046448E-7, +0.134110451E-6), (+0.238418579E-6, +0.327825546E-6), (+0.00000000, +0.208616257E-6), (+0.596046448E-7, -0.894069672E-7), (+0.178813934E-6, -0.596046448E-7), (+0.178813934E-6, +0.193715096E-6), (+0.119209290E-6, +0.119209290E-6), (-0.119209290E-6, +0.119209290E-6), (+0.238418579E-6, +0.156462193E-6), (-0.596046448E-7, +0.178813934E-6), (+0.596046448E-7, -0.447034836E-7)
11reltol = sqrt(epsilon(1._TKG))
12reltol
13+0.345266977E-3
14isClose(data, atad(1:size(data)), reltol = reltol)
15T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
16call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
17
18lenData = getUnifRand(5, 100)
19lenData
20+26
21data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
22data
23(+1.1789625127658336, +0.45676011038868058), (+1.2447448123297014, +0.32378324867388331), (+1.1854741934542594, +0.53890333570145466), (+1.7784331620715215, +0.58623105097414707), (+1.7969984567243689, +0.82851722499622604), (+1.6939056108841897, +0.33133074957471365), (+1.8859964277901975, +0.94698708489672723), (+1.2937911650816556, +0.79028351449722223), (+1.3634376458648321, +0.88449849762183541), (+1.0543173672328818, +0.93626932551369257), (+1.1968223272042651, +0.59555702837476021E-2), (+1.8242909527952236, +0.63429228404181759), (+1.8558512302706136, +0.53711957226488116), (+1.9765462890860239, +0.92823279469274811), (+1.5959500430390920, +0.51388820397752755), (+1.9147560670606945, +0.30731582640597566), (+1.6658362761100642, +0.56811317304795217), (+1.9293322515714295, +0.71311809405244442), (+1.1746710383813808, +0.72991090296453065), (+1.1817433999065945, +0.31033782908732566), (+1.1345598010345626, +0.16002460719478528E-1), (+1.0928379246685420, +0.13482558661598276), (+1.6904094734709514, +0.29298911878127187), (+1.0028373200453429, +0.72342115259105266), (+1.1041663505870871, +0.11593158007491600), (+1.5880621126765435, +0.68679034534170647)
24
25atad = getFFTI(getFFTF(data))
26atad
27(+1.1789625127658336, +0.45676011038868058), (+1.2447448123297014, +0.32378324867388369), (+1.1854741934542599, +0.53890333570145499), (+1.7784331620715217, +0.58623105097414729), (+1.7969984567243691, +0.82851722499622604), (+1.6939056108841892, +0.33133074957471376), (+1.8859964277901975, +0.94698708489672712), (+1.2937911650816551, +0.79028351449722245), (+1.3634376458648323, +0.88449849762183530), (+1.0543173672328816, +0.93626932551369246), (+1.1968223272042655, +0.59555702837477131E-2), (+1.8242909527952231, +0.63429228404181759), (+1.8558512302706136, +0.53711957226488094), (+1.9765462890860233, +0.92823279469274778), (+1.5959500430390923, +0.51388820397752766), (+1.9147560670606936, +0.30731582640597560), (+1.6658362761100642, +0.56811317304795217), (+1.9293322515714293, +0.71311809405244442), (+1.1746710383813812, +0.72991090296453054), (+1.1817433999065945, +0.31033782908732549), (+1.1345598010345628, +0.16002460719478417E-1), (+1.0928379246685418, +0.13482558661598273), (+1.6904094734709516, +0.29298911878127176), (+1.0028373200453427, +0.72342115259105255), (+1.1041663505870873, +0.11593158007491616), (+1.5880621126765431, +0.68679034534170635), (+0.55511151231257827E-15, +0.0000000000000000), (+0.44408920985006262E-15, +0.11102230246251565E-15), (+0.44408920985006262E-15, +0.22204460492503131E-15), (+0.66613381477509392E-15, +0.49960036108132044E-15), (+0.66613381477509392E-15, +0.38857805861880479E-15), (+0.55511151231257827E-15, +0.38857805861880479E-15)
28reltol = sqrt(epsilon(1._TKG))
29reltol
30+0.14901161193847656E-7
31isClose(data, atad(1:size(data)), reltol = reltol)
32T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
33call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
34
35lenData = getUnifRand(5, 100)
36lenData
37+17
38data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
39data
40(+1.21343213853827929772316239526269688, +0.376420072727703119426015846446590179), (+1.72848349167042718784585451220894836, +0.585198363711382063271515934587125237), (+1.68572248904143315287827910086399702, +0.728610641429716229447948812734706650), (+1.63672745353106001309085402510908882, +0.457547475737290841619809223276504547), (+1.31636599520825608369508167568446578, +0.737038205093671657179199826941425391), (+1.38623944986595895922998081486963551, +0.295534402256273123029539546576666292), (+1.58291965852269858093526483699713589, +0.437193123244016837613317025947043514E-2), (+1.60365575831713303623192975256318298, +0.535355667739659310755795427855269578), (+1.75400016246569348442098768414707170, +0.899985408266176277089553066098434376), (+1.57129129090360779850388231640802378, +0.257995847228320804639578599415287691), (+1.90629390230215412489170628145352160, +0.426706168268299406428569863278390984), (+1.27051341876399149911214206135213173, +0.648081846327224411142760398971038913), (+1.97962023236254091765982309956315369, +0.183159323783052896142797044119091162), (+1.93381246265081980906137029526704298, +0.393002945326575278957177149174680598), (+1.82512952206715663627716932886221968, +0.737333792782142658743003365113158261E-1), (+1.82575000259167726190544798296440776, +0.980764973414501761918297027691256909), (+1.28249976493376371496636476959335852, +0.739125744048546367424864545329926350)
41
42atad = getFFTI(getFFTF(data))
43atad
44(+1.21343213853827929772316239526269688, +0.376420072727703119426015846446590131), (+1.72848349167042718784585451220894836, +0.585198363711382063271515934587125526), (+1.68572248904143315287827910086399702, +0.728610641429716229447948812734706650), (+1.63672745353106001309085402510908921, +0.457547475737290841619809223276504740), (+1.31636599520825608369508167568446597, +0.737038205093671657179199826941425391), (+1.38623944986595895922998081486963532, +0.295534402256273123029539546576666195), (+1.58291965852269858093526483699713589, +0.437193123244016837613317025947026060E-2), (+1.60365575831713303623192975256318298, +0.535355667739659310755795427855269290), (+1.75400016246569348442098768414707151, +0.899985408266176277089553066098434376), (+1.57129129090360779850388231640802339, +0.257995847228320804639578599415287451), (+1.90629390230215412489170628145352141, +0.426706168268299406428569863278391080), (+1.27051341876399149911214206135213173, +0.648081846327224411142760398971039009), (+1.97962023236254091765982309956315369, +0.183159323783052896142797044119091283), (+1.93381246265081980906137029526704298, +0.393002945326575278957177149174680406), (+1.82512952206715663627716932886221968, +0.737333792782142658743003365113161391E-1), (+1.82575000259167726190544798296440795, +0.980764973414501761918297027691257102), (+1.28249976493376371496636476959335852, +0.739125744048546367424864545329926543), (+0.962964972193617926527988971292463659E-34, -0.240741243048404481631997242823115915E-33), (-0.288889491658085377958396691387739098E-33, +0.00000000000000000000000000000000000), (-0.288889491658085377958396691387739098E-33, -0.312963615962925826121596415670050689E-33), (+0.962964972193617926527988971292463659E-34, +0.962964972193617926527988971292463659E-34), (+0.192592994438723585305597794258492732E-33, +0.144444745829042688979198345693869549E-33), (-0.288889491658085377958396691387739098E-33, +0.114352090447992128775198690340980060E-33), (-0.962964972193617926527988971292463659E-34, +0.240741243048404481631997242823115915E-33), (+0.385185988877447170611195588516985464E-33, +0.962964972193617926527988971292463659E-34), (+0.192592994438723585305597794258492732E-33, +0.240741243048404481631997242823115915E-33), (+0.00000000000000000000000000000000000, -0.192592994438723585305597794258492732E-33), (+0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34), (+0.962964972193617926527988971292463659E-34, -0.168518870133883137142398069976181140E-33), (+0.192592994438723585305597794258492732E-33, +0.264815367353244929795196967105427506E-33), (-0.288889491658085377958396691387739098E-33, -0.355093333496396610407195933164095974E-33), (-0.962964972193617926527988971292463659E-34, -0.481482486096808963263994485646231830E-34)
45reltol = sqrt(epsilon(1._TKG))
46reltol
47+0.138777878078144567552953958511352539E-16
48isClose(data, atad(1:size(data)), reltol = reltol)
49T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
50call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
51
52lenData = getUnifRand(5, 100)
53lenData
54+15
55data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
56data
57+1.76622200, +1.89736247, +1.03648949, +1.99469650, +1.22036290, +1.50698948, +1.02086592, +1.48576224, +1.91191733, +1.80941200, +1.47277951, +1.61930156, +1.11248362, +1.55993807, +1.80551243
58
59atad = getFFTI(getFFTF(data))
60atad
61+1.76622200, +1.89736259, +1.03648949, +1.99469638, +1.22036302, +1.50698948, +1.02086627, +1.48576212, +1.91191745, +1.80941212, +1.47277951, +1.61930156, +1.11248386, +1.55993795, +1.80551231, +0.417232513E-6
62reltol = sqrt(epsilon(1._TKG))
63reltol
64+0.345266977E-3
65isClose(data, atad(1:size(data)), reltol = reltol)
66T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
67call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
68
69lenData = getUnifRand(5, 100)
70lenData
71+89
72data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
73data
74+1.5123014658001739, +1.3012562599552642, +1.1128472273748085, +1.1590921890304702, +1.4368026369294127, +1.5228888033550878, +1.3600040548161343, +1.6854966828321214, +1.7327778359886743, +1.9874200987661959, +1.3552232274915827, +1.7416420128903916, +1.5054588988943638, +1.4549234970327387, +1.0137350117776003, +1.0255228811058092, +1.5751905437277756, +1.6451527459076014, +1.8492286030659622, +1.1043612919560974, +1.5421842007692679, +1.3244305020542582, +1.5212453828412726, +1.3902550974800201, +1.3578154532731295, +1.3777276913112571, +1.4691958688031643, +1.8481727520554507, +1.9051219605703116, +1.8297424769668793, +1.6396059090897785, +1.0200482948993650, +1.7611607111314844, +1.0906685781190180, +1.9382740371788891, +1.1479959129904462, +1.3212540741496630, +1.9998081243245855, +1.5103102141555433, +1.9211815161604608, +1.8793837960075246, +1.6785243177844673, +1.4286799113812962, +1.9506609218226010, +1.9365187227812792, +1.8576152188496866, +1.5222610402086607, +1.6332507473834359, +1.9028186539387377, +1.1380337510734702, +1.3912811462768300, +1.2464340756324876, +1.5715152917654478, +1.5484458064171500, +1.7498652354221800, +1.3003316474465347, +1.0435738453353711, +1.9912109907697801, +1.8046482902916883, +1.1438140636585472, +1.5950990503019280, +1.9689139963065379, +1.6035864216232614, +1.8288849085218037, +1.8441847749440470, +1.5052575334894245, +1.2881157275084174, +1.0623233385228836, +1.1529454469827798, +1.5336742795316154, +1.7442271565368186, +1.3012714209560512, +1.6915195028326429, +1.3872322179223959, +1.1394370971895986, +1.3371795469700816, +1.6117727121780860, +1.9474433246761285, +1.0981133349002585, +1.9301791063038665, +1.6089664065274207, +1.7592671601053280, +1.8027194312479506, +1.5758247531348744, +1.7814725985893347, +1.3813217572580343, +1.1742012975264200, +1.9995134867135969, +1.5748828325856294
75
76atad = getFFTI(getFFTF(data))
77atad
78+1.5123014658001739, +1.3012562599552637, +1.1128472273748082, +1.1590921890304702, +1.4368026369294122, +1.5228888033550876, +1.3600040548161334, +1.6854966828321214, +1.7327778359886743, +1.9874200987661959, +1.3552232274915827, +1.7416420128903913, +1.5054588988943638, +1.4549234970327383, +1.0137350117775998, +1.0255228811058092, +1.5751905437277753, +1.6451527459076010, +1.8492286030659619, +1.1043612919560974, +1.5421842007692672, +1.3244305020542577, +1.5212453828412718, +1.3902550974800201, +1.3578154532731286, +1.3777276913112568, +1.4691958688031639, +1.8481727520554507, +1.9051219605703111, +1.8297424769668789, +1.6396059090897781, +1.0200482948993648, +1.7611607111314844, +1.0906685781190173, +1.9382740371788894, +1.1479959129904458, +1.3212540741496630, +1.9998081243245847, +1.5103102141555429, +1.9211815161604600, +1.8793837960075246, +1.6785243177844671, +1.4286799113812965, +1.9506609218226005, +1.9365187227812797, +1.8576152188496859, +1.5222610402086612, +1.6332507473834355, +1.9028186539387379, +1.1380337510734697, +1.3912811462768304, +1.2464340756324872, +1.5715152917654476, +1.5484458064171494, +1.7498652354221793, +1.3003316474465343, +1.0435738453353713, +1.9912109907697797, +1.8046482902916883, +1.1438140636585470, +1.5950990503019278, +1.9689139963065370, +1.6035864216232614, +1.8288849085218031, +1.8441847749440470, +1.5052575334894243, +1.2881157275084174, +1.0623233385228832, +1.1529454469827798, +1.5336742795316154, +1.7442271565368181, +1.3012714209560510, +1.6915195028326422, +1.3872322179223961, +1.1394370971895984, +1.3371795469700813, +1.6117727121780860, +1.9474433246761287, +1.0981133349002588, +1.9301791063038660, +1.6089664065274207, +1.7592671601053276, +1.8027194312479506, +1.5758247531348739, +1.7814725985893345, +1.3813217572580339, +1.1742012975264202, +1.9995134867135957, +1.5748828325856292, +0.11102230246251565E-15, -0.22204460492503131E-15, -0.13322676295501878E-14, +0.55511151231257827E-15, -0.11102230246251565E-15, +0.99920072216264089E-15, -0.66613381477509392E-15, -0.22204460492503131E-15, -0.22204460492503131E-15, -0.22204460492503131E-15, -0.55511151231257827E-15, -0.33306690738754696E-15, +0.11102230246251565E-15, -0.22204460492503131E-15, +0.22204460492503131E-15, -0.33306690738754696E-15, -0.33306690738754696E-15, -0.11102230246251565E-15, -0.12212453270876722E-14, +0.0000000000000000, +0.22204460492503131E-15, +0.11102230246251565E-15, +0.22204460492503131E-15, +0.0000000000000000, -0.22204460492503131E-15, +0.33306690738754696E-15, -0.55511151231257827E-15, +0.0000000000000000, +0.22204460492503131E-15, +0.44408920985006262E-15, +0.66613381477509392E-15, +0.11102230246251565E-15, -0.55511151231257827E-15, +0.0000000000000000, -0.22204460492503131E-15, +0.11102230246251565E-15, +0.66613381477509392E-15, -0.66613381477509392E-15, +0.99920072216264089E-15
79reltol = sqrt(epsilon(1._TKG))
80reltol
81+0.14901161193847656E-7
82isClose(data, atad(1:size(data)), reltol = reltol)
83T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
84call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
85
86lenData = getUnifRand(5, 100)
87lenData
88+7
89data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
90data
91+1.06865077539187738187676769778611855, +1.38303134847296433454371884786591306, +1.83818955353949924354094634193967726, +1.95781084478734523549546959532086885, +1.38488877032159633128108673756816847, +1.32944924339517223374556202656592919, +1.01262071339954672555262004650344759
92
93atad = getFFTI(getFFTF(data))
94atad
95+1.06865077539187738187676769778611836, +1.38303134847296433454371884786591306, +1.83818955353949924354094634193967688, +1.95781084478734523549546959532086885, +1.38488877032159633128108673756816828, +1.32944924339517223374556202656592939, +1.01262071339954672555262004650344759, +0.00000000000000000000000000000000000
96reltol = sqrt(epsilon(1._TKG))
97reltol
98+0.138777878078144567552953958511352539E-16
99isClose(data, atad(1:size(data)), reltol = reltol)
100T, T, T, T, T, T, T
101call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
102
103lenData = getUnifRand(5, 100)
104lenData
105+78
106data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
107data
108(+1.24134278, +0.763838351), (+1.35996509, +0.566185236), (+1.68559659, +0.883425772), (+1.72442448, +0.792362034), (+1.34951305, +0.586080313), (+1.95271611, +0.327473283E-1), (+1.61880016, +0.290003955), (+1.25991797, +0.664623737), (+1.78962207, +0.809121966), (+1.04175138, +0.800428867), (+1.70960474, +0.847376168), (+1.14866006, +0.364745080), (+1.91945636, +0.654525101), (+1.20201492, +0.712335050), (+1.14747512, +0.125618637), (+1.87046003, +0.544389725), (+1.49356341, +0.924825847), (+1.91672540, +0.438567996), (+1.22839069, +0.818772852), (+1.48011160, +0.813727617), (+1.34053600, +0.639689445), (+1.20564878, +0.929221392), (+1.20608258, +0.538238525), (+1.38859141, +0.730112910), (+1.84249687, +0.790230095), (+1.47193623, +0.131798446), (+1.39844537, +0.191116273), (+1.59899700, +0.853656530), (+1.61840630, +0.934530854), (+1.03790736, +0.885127187E-1), (+1.09236336, +0.808171153), (+1.90194595, +0.916857719), (+1.93733311, +0.941614151), (+1.55665374, +0.628705025), (+1.71309817, +0.319408059), (+1.75479674, +0.841777921E-1), (+1.25619316, +0.550057292E-1), (+1.78316832, +0.730813801), (+1.06307554, +0.628317773), (+1.40220249, +0.390239835), (+1.98361230, +0.769946635), (+1.98142028, +0.323206842), (+1.80579269, +0.610164702), (+1.61596501, +0.647727847), (+1.40115166, +0.159309387), (+1.64926600, +0.482126236), (+1.78089809, +0.650849998), (+1.83585405, +0.965598822), (+1.88903666, +0.300629556), (+1.10526204, +0.108329833), (+1.01764989, +0.194939017), (+1.82406640, +0.283268631), (+1.36943460, +0.443813801), (+1.71258652, +0.582955897), (+1.87219048, +0.824371636), (+1.78164387, +0.163980424), (+1.97121453, +0.295343101), (+1.89793992, +0.729243875), (+1.15355587, +0.446333110), (+1.20485127, +0.697340906), (+1.73463297, +0.853257775), (+1.58599722, +0.852540195), (+1.58316231, +0.723023117), (+1.69078112, +0.372770905), (+1.81858718, +0.493941188), (+1.16929078, +0.954917312), (+1.94672823, +0.547350585), (+1.81504774, +0.605558991), (+1.00109172, +0.524684012), (+1.80908036, +0.569994152), (+1.72490692, +0.891876280), (+1.94683146, +0.847110450), (+1.74572062, +0.358869314), (+1.02891779, +0.934547484), (+1.28442717, +0.310613513), (+1.88054633, +0.707164407E-1), (+1.49604774, +0.187730789E-1), (+1.35431051, +0.156387568)
109
110atad = getFFTI(getFFTF(data))
111atad
112(+1.24134266, +0.763838530), (+1.35996521, +0.566185176), (+1.68559611, +0.883425653), (+1.72442412, +0.792362034), (+1.34951282, +0.586080134), (+1.95271611, +0.327472091E-1), (+1.61879992, +0.290003866), (+1.25991774, +0.664623499), (+1.78962219, +0.809122086), (+1.04175150, +0.800428867), (+1.70960474, +0.847376108), (+1.14865994, +0.364745259), (+1.91945636, +0.654525220), (+1.20201492, +0.712335110), (+1.14747524, +0.125618801), (+1.87046003, +0.544389665), (+1.49356318, +0.924825847), (+1.91672528, +0.438568056), (+1.22839046, +0.818772733), (+1.48011160, +0.813727498), (+1.34053588, +0.639689445), (+1.20564890, +0.929221392), (+1.20608258, +0.538238525), (+1.38859153, +0.730112672), (+1.84249675, +0.790230155), (+1.47193646, +0.131798565), (+1.39844537, +0.191116422), (+1.59899676, +0.853656769), (+1.61840630, +0.934530973), (+1.03790748, +0.885128155E-1), (+1.09236336, +0.808171213), (+1.90194583, +0.916857958), (+1.93733311, +0.941613972), (+1.55665398, +0.628704846), (+1.71309805, +0.319407851), (+1.75479686, +0.841776431E-1), (+1.25619316, +0.550057143E-1), (+1.78316820, +0.730813444), (+1.06307554, +0.628317595), (+1.40220261, +0.390239686), (+1.98361230, +0.769946575), (+1.98142052, +0.323206872), (+1.80579269, +0.610164523), (+1.61596477, +0.647727728), (+1.40115166, +0.159309298), (+1.64926600, +0.482126266), (+1.78089809, +0.650849700), (+1.83585393, +0.965598822), (+1.88903642, +0.300629318), (+1.10526204, +0.108329669), (+1.01764977, +0.194938958), (+1.82406616, +0.283268571), (+1.36943448, +0.443813622), (+1.71258640, +0.582955658), (+1.87219024, +0.824371219), (+1.78164387, +0.163980633), (+1.97121429, +0.295343101), (+1.89793956, +0.729243755), (+1.15355551, +0.446332961), (+1.20485115, +0.697340488), (+1.73463297, +0.853257596), (+1.58599710, +0.852540016), (+1.58316183, +0.723022938), (+1.69078088, +0.372770786), (+1.81858695, +0.493941098), (+1.16929090, +0.954917252), (+1.94672787, +0.547350466), (+1.81504750, +0.605558813), (+1.00109172, +0.524684012), (+1.80908036, +0.569994032), (+1.72490716, +0.891876101), (+1.94683170, +0.847110510), (+1.74572051, +0.358869433), (+1.02891743, +0.934547424), (+1.28442717, +0.310613424), (+1.88054633, +0.707163960E-1), (+1.49604762, +0.187731385E-1), (+1.35431027, +0.156387657), (+0.119209290E-6, +0.104308128E-6), (+0.298023224E-6, +0.596046448E-7), (+0.00000000, -0.596046448E-7), (+0.119209290E-6, +0.00000000), (+0.178813934E-6, +0.178813934E-6), (+0.178813934E-6, -0.298023224E-7), (+0.119209290E-6, -0.298023224E-7), (+0.298023224E-6, +0.298023224E-7), (+0.178813934E-6, +0.894069672E-7), (+0.178813934E-6, +0.119209290E-6), (+0.00000000, -0.894069672E-7), (+0.596046448E-7, -0.417232513E-6), (-0.596046448E-7, +0.223517418E-7), (+0.119209290E-6, -0.208616257E-6), (-0.596046448E-7, -0.894069672E-7), (+0.119209290E-6, -0.186264515E-6), (+0.00000000, +0.119209290E-6), (+0.178813934E-6, -0.894069672E-7), (-0.178813934E-6, +0.178813934E-6), (+0.238418579E-6, +0.178813934E-6), (-0.178813934E-6, +0.268220901E-6), (+0.119209290E-6, +0.268220901E-6), (-0.596046448E-7, +0.312924385E-6), (+0.119209290E-6, +0.298023224E-6), (+0.119209290E-6, +0.327825546E-6), (+0.596046448E-7, +0.208616257E-6), (+0.178813934E-6, +0.149011612E-6), (+0.178813934E-6, +0.894069672E-7), (+0.119209290E-6, +0.268220901E-6), (+0.00000000, +0.00000000), (+0.00000000, +0.894069672E-7), (+0.00000000, +0.298023224E-7), (+0.178813934E-6, +0.268220901E-6), (+0.00000000, +0.149011612E-6), (+0.00000000, +0.193715096E-6), (+0.238418579E-6, +0.447034836E-7), (+0.119209290E-6, +0.417232513E-6), (+0.298023224E-6, +0.298023224E-6), (+0.00000000, +0.283122063E-6), (+0.178813934E-6, +0.178813934E-6), (+0.596046448E-7, +0.357627869E-6), (+0.596046448E-7, +0.149011612E-6), (+0.417232513E-6, +0.745058060E-7), (+0.476837158E-6, -0.894069672E-7), (+0.00000000, +0.149011612E-6), (+0.298023224E-6, +0.596046448E-7), (+0.178813934E-6, +0.119209290E-6), (+0.178813934E-6, -0.298023224E-7), (-0.238418579E-6, +0.327825546E-6), (+0.119209290E-6, +0.208616257E-6)
113reltol = sqrt(epsilon(1._TKG))
114reltol
115+0.345266977E-3
116isClose(data, atad(1:size(data)), reltol = reltol)
117T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
118call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
119
120lenData = getUnifRand(5, 100)
121lenData
122+21
123data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
124data
125(+1.6376398218571224, +0.20062692708606467), (+1.2535496901819871, +0.35335532603054332), (+1.1442276915925436, +0.12973528502579168), (+1.7169600111088394, +0.95551469083419827E-1), (+1.4652414394859230, +0.21794005075563339), (+1.2418856761946575, +0.82777588638445632), (+1.8599987041694481, +0.44612801775053901), (+1.9592670266664318, +0.63906086265164930), (+1.9311287464170130, +0.88167668751500483), (+1.1244513949830210, +0.60969361315086901E-1), (+1.7185504386045949, +0.89218148906104022), (+1.1650116075374828, +0.56481816141425290), (+1.2435853087218269, +0.71402454675476668), (+1.6004533558908403, +0.42215501473448469), (+1.2038611902931255, +0.87726314746033740), (+1.2540253574405944, +0.80603928702011907), (+1.7719376810687955, +0.40405267686728374), (+1.2443853943666325, +0.36930711912397940), (+1.4023942139117236, +0.24730961980241306), (+1.4469217933194811, +0.72146952374295692E-2), (+1.1200532887151122, +0.78852997609178077)
126
127atad = getFFTI(getFFTF(data))
128atad
129(+1.6376398218571224, +0.20062692708606461), (+1.2535496901819871, +0.35335532603054337), (+1.1442276915925436, +0.12973528502579176), (+1.7169600111088390, +0.95551469083419951E-1), (+1.4652414394859230, +0.21794005075563355), (+1.2418856761946573, +0.82777588638445621), (+1.8599987041694477, +0.44612801775053912), (+1.9592670266664314, +0.63906086265164908), (+1.9311287464170130, +0.88167668751500461), (+1.1244513949830210, +0.60969361315086804E-1), (+1.7185504386045949, +0.89218148906104000), (+1.1650116075374826, +0.56481816141425267), (+1.2435853087218267, +0.71402454675476645), (+1.6004533558908398, +0.42215501473448441), (+1.2038611902931255, +0.87726314746033707), (+1.2540253574405942, +0.80603928702011862), (+1.7719376810687955, +0.40405267686728369), (+1.2443853943666325, +0.36930711912397923), (+1.4023942139117236, +0.24730961980241303), (+1.4469217933194809, +0.72146952374295553E-2), (+1.1200532887151122, +0.78852997609178055), (+0.66613381477509392E-15, -0.16653345369377348E-15), (+0.55511151231257827E-15, -0.27755575615628914E-16), (+0.44408920985006262E-15, -0.11102230246251565E-15), (+0.22204460492503131E-15, +0.55511151231257827E-16), (+0.44408920985006262E-15, +0.97144514654701197E-16), (+0.11102230246251565E-15, +0.16653345369377348E-15), (+0.22204460492503131E-15, +0.16653345369377348E-15), (+0.33306690738754696E-15, +0.11102230246251565E-15), (+0.44408920985006262E-15, +0.38857805861880479E-15), (+0.33306690738754696E-15, +0.33306690738754696E-15), (+0.66613381477509392E-15, +0.33306690738754696E-15)
130reltol = sqrt(epsilon(1._TKG))
131reltol
132+0.14901161193847656E-7
133isClose(data, atad(1:size(data)), reltol = reltol)
134T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
135call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
136
137lenData = getUnifRand(5, 100)
138lenData
139+10
140data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
141data
142(+1.99392769903237853715559351379949911, +0.308449114696673598620723694728657224), (+1.02371386805134841889473954176562838, +0.459866818745826879682890848319603860E-1), (+1.31727283252308440206252569811994376, +0.595906709545642068524514094497857793), (+1.48369976339929012610157056307872734, +0.645584224897044197985235166229553808), (+1.37648906639262501100038673992054725, +0.785472912045977260985365123292754724), (+1.95562476684976525095441077789912801, +0.553026477503915535563668748733632635), (+1.69761062919167197686598539558664668, +0.767293479392860468889184451839447742), (+1.39254992755631430278419748240822781, +0.105575460791370998933427762401921168), (+1.40524237918012914087295375620566445, +0.568644062498240182238466106002532641), (+1.81110439498539160515972276370082110, +0.696864071311687748596301539856915122)
143
144atad = getFFTI(getFFTF(data))
145atad
146(+1.99392769903237853715559351379949930, +0.308449114696673598620723694728657224), (+1.02371386805134841889473954176562857, +0.459866818745826879682890848319601935E-1), (+1.31727283252308440206252569811994376, +0.595906709545642068524514094497857697), (+1.48369976339929012610157056307872753, +0.645584224897044197985235166229553904), (+1.37648906639262501100038673992054725, +0.785472912045977260985365123292754820), (+1.95562476684976525095441077789912839, +0.553026477503915535563668748733632828), (+1.69761062919167197686598539558664707, +0.767293479392860468889184451839447742), (+1.39254992755631430278419748240822800, +0.105575460791370998933427762401920927), (+1.40524237918012914087295375620566464, +0.568644062498240182238466106002532737), (+1.81110439498539160515972276370082090, +0.696864071311687748596301539856915315), (-0.962964972193617926527988971292463659E-34, +0.240741243048404481631997242823115915E-33), (-0.288889491658085377958396691387739098E-33, -0.962964972193617926527988971292463659E-34), (+0.962964972193617926527988971292463659E-34, +0.962964972193617926527988971292463659E-34), (-0.577778983316170755916793382775478196E-33, -0.144444745829042688979198345693869549E-33), (-0.288889491658085377958396691387739098E-33, +0.144444745829042688979198345693869549E-33), (-0.192592994438723585305597794258492732E-33, +0.481482486096808963263994485646231830E-34)
147reltol = sqrt(epsilon(1._TKG))
148reltol
149+0.138777878078144567552953958511352539E-16
150isClose(data, atad(1:size(data)), reltol = reltol)
151T, T, T, T, T, T, T, T, T, T
152call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
153
154lenData = getUnifRand(5, 100)
155lenData
156+17
157data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
158data
159+1.72239733, +1.96664095, +1.92071009, +1.56579614, +1.38879085, +1.89818716, +1.88858151, +1.56037951, +1.64460123, +1.13052440, +1.22598207, +1.86494350, +1.22795844, +1.77001369, +1.21828175, +1.91012001, +1.44844604
160
161atad = getFFTI(getFFTF(data))
162atad
163+1.72239721, +1.96664095, +1.92071009, +1.56579626, +1.38879061, +1.89818716, +1.88858104, +1.56037951, +1.64460123, +1.13052440, +1.22598219, +1.86494374, +1.22795844, +1.77001357, +1.21828163, +1.91011965, +1.44844592, +0.238418579E-6, -0.596046448E-7, +0.119209290E-6, +0.238418579E-6, +0.238418579E-6, +0.238418579E-6, +0.238418579E-6, +0.00000000, +0.298023224E-6, +0.596046448E-7, +0.596046448E-7, +0.00000000, +0.298023224E-6, +0.119209290E-6, +0.357627869E-6
164reltol = sqrt(epsilon(1._TKG))
165reltol
166+0.345266977E-3
167isClose(data, atad(1:size(data)), reltol = reltol)
168T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
169call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
170
171lenData = getUnifRand(5, 100)
172lenData
173+13
174data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
175data
176+1.9040671753706959, +1.1226655361038627, +1.0172048007893295, +1.5511371196912078, +1.8005680103763821, +1.7754070247551430, +1.0340538569531783, +1.6302530094768470, +1.4036583496870692, +1.7171461437759052, +1.3753517384968708, +1.0988379162091237, +1.4788628149815741
177
178atad = getFFTI(getFFTF(data))
179atad
180+1.9040671753706959, +1.1226655361038627, +1.0172048007893297, +1.5511371196912080, +1.8005680103763826, +1.7754070247551432, +1.0340538569531783, +1.6302530094768470, +1.4036583496870689, +1.7171461437759055, +1.3753517384968708, +1.0988379162091240, +1.4788628149815741, +0.44408920985006262E-15, +0.33306690738754696E-15, +0.55511151231257827E-15
181reltol = sqrt(epsilon(1._TKG))
182reltol
183+0.14901161193847656E-7
184isClose(data, atad(1:size(data)), reltol = reltol)
185T, T, T, T, T, T, T, T, T, T, T, T, T
186call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
187
188lenData = getUnifRand(5, 100)
189lenData
190+96
191data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
192data
193+1.55867455586560869470986729616249469, +1.21556130056417220698784460559744654, +1.00033692638984172091983526517647195, +1.43253871000149525603363635372843656, +1.32822487883677589122856207117867061, +1.10526166918537983301191720216439099, +1.63064190443669888732798556813902066, +1.49788570691159997206095897721372630, +1.71819736583768875710083149941728156, +1.95467028291244268967980371409092980, +1.41939092317809451964593926010725069, +1.80680399033698946300334763106924522, +1.83864061626594465321418996030199867, +1.77118477775862974848090476710862002, +1.85249307805813081157874514665284545, +1.85963200095278288814788175907870129, +1.44752797065627023265759576183067069, +1.43427751836954661784266188251466022, +1.29308237604891709655813797482360047, +1.59298518816756214688718445122595953, +1.74021072220499567167286073588861677, +1.56848799438947267055326136355946889, +1.34776188056696247424957364974237311, +1.69369859854171820478294297692420821, +1.99757439151653474847151703917378011, +1.75551679309572637488511760235289713, +1.89830750367512175006803579203198740, +1.22147833854848559943499175852688466, +1.39919072634832533035368939622880138, +1.31010110617416404156702700035622275, +1.03064902650187813272581156742694549, +1.79979300728276747339028947455866837, +1.24339567471857947239864396467087762, +1.63432533288552762999545370329759447, +1.01123630800182611100561696841422217, +1.63416052119905149460706826935593234, +1.24654116524606179681673268614941161, +1.77302218464527665640925184310620503, +1.71066477975313483946820066029234483, +1.99427625558277764470139893610951347, +1.41562102179943019713318964772411142, +1.01099480734373202815816383365214016, +1.67648692215134430233863419236727940, +1.65505246290942874196089294334747944, +1.20111755450620599780887657288589170, +1.43002211999639406140799660333997455, +1.97824767463434606476943044079302924, +1.14595335036993421311675508017694021, +1.75207315130527347675174850868632264, +1.24941973720697851089320406516342799, +1.03718144327789034354022880373809672, +1.73416610606663262099590679315480308, +1.43964464057693302637251232078416853, +1.28936158174869238514618506478504958, +1.93569739316910620562818729896681719, +1.99780509295253913746700700706905133, +1.58729547613115425553052682900802965, +1.54824974634492770359311896610399702, +1.72678872430377223738357912152631796, +1.71944913085731071727295044468548402, +1.92915110165530769536376062593440229, +1.95680323063623749710393727650677084, +1.55371420676960686661329367941471502, +1.24243675891453113884062267607441465, +1.55295207301034964871108419298933131, +1.24985706929773464231473636275586167, +1.28435121334177150733116307288964491, +1.54215378464863878107719033873120582, +1.25715034388890602439118305792902210, +1.56673970067197641324950589172592692, +1.71433391003242999783939574512423735, +1.63326704133541180321015985882187163, +1.49642831554096084181162750742648482, +1.78660142052082248828977090281684442, +1.87847955878986020646424399929326648, +1.99528608525627547676143757467121761, +1.87372231195550901178616447364165103, +1.90552477686897435313026045256397203, +1.01223329959801327911506579370709233, +1.94342764634430065606292439827604709, +1.07993580861774983830038808098672456, +1.51337417783702622025732875070731947, +1.38140439556054288437876415553032674, +1.54196165253588072743521493806771007, +1.44739362806159491192293962134027358, +1.71327671113947679957160622015949925, +1.39085728491749765219164931743025169, +1.54419233756150472417347075970453282, +1.96712755966309461663923580436100849, +1.55608210384435192819748583743228080, +1.98791240851168522384015236688082296, +1.54792691908468073211240689810008592, +1.41052195823176402489184265046198509, +1.42859912173993160090890864660053764, +1.53444479302945396779271014653836596, +1.55068996474224133526791220587828352
194
195atad = getFFTI(getFFTF(data))
196atad
197+1.55867455586560869470986729616249469, +1.21556130056417220698784460559744673, +1.00033692638984172091983526517647195, +1.43253871000149525603363635372843636, +1.32822487883677589122856207117867042, +1.10526166918537983301191720216439060, +1.63064190443669888732798556813901989, +1.49788570691159997206095897721372611, +1.71819736583768875710083149941728194, +1.95467028291244268967980371409092980, +1.41939092317809451964593926010725030, +1.80680399033698946300334763106924522, +1.83864061626594465321418996030199886, +1.77118477775862974848090476710861983, +1.85249307805813081157874514665284545, +1.85963200095278288814788175907870149, +1.44752797065627023265759576183067088, +1.43427751836954661784266188251466022, +1.29308237604891709655813797482360008, +1.59298518816756214688718445122595934, +1.74021072220499567167286073588861638, +1.56848799438947267055326136355946850, +1.34776188056696247424957364974237253, +1.69369859854171820478294297692420840, +1.99757439151653474847151703917377991, +1.75551679309572637488511760235289751, +1.89830750367512175006803579203198701, +1.22147833854848559943499175852688504, +1.39919072634832533035368939622880119, +1.31010110617416404156702700035622275, +1.03064902650187813272581156742694492, +1.79979300728276747339028947455866875, +1.24339567471857947239864396467087781, +1.63432533288552762999545370329759427, +1.01123630800182611100561696841422179, +1.63416052119905149460706826935593177, +1.24654116524606179681673268614941122, +1.77302218464527665640925184310620483, +1.71066477975313483946820066029234445, +1.99427625558277764470139893610951347, +1.41562102179943019713318964772411180, +1.01099480734373202815816383365214016, +1.67648692215134430233863419236727940, +1.65505246290942874196089294334747964, +1.20111755450620599780887657288589190, +1.43002211999639406140799660333997455, +1.97824767463434606476943044079302943, +1.14595335036993421311675508017694002, +1.75207315130527347675174850868632322, +1.24941973720697851089320406516342799, +1.03718144327789034354022880373809672, +1.73416610606663262099590679315480308, +1.43964464057693302637251232078416891, +1.28936158174869238514618506478504919, +1.93569739316910620562818729896681719, +1.99780509295253913746700700706905095, +1.58729547613115425553052682900803023, +1.54824974634492770359311896610399702, +1.72678872430377223738357912152631777, +1.71944913085731071727295044468548421, +1.92915110165530769536376062593440248, +1.95680323063623749710393727650677084, +1.55371420676960686661329367941471540, +1.24243675891453113884062267607441465, +1.55295207301034964871108419298933169, +1.24985706929773464231473636275586167, +1.28435121334177150733116307288964472, +1.54215378464863878107719033873120582, +1.25715034388890602439118305792902229, +1.56673970067197641324950589172592672, +1.71433391003242999783939574512423716, +1.63326704133541180321015985882187125, +1.49642831554096084181162750742648443, +1.78660142052082248828977090281684480, +1.87847955878986020646424399929326609, +1.99528608525627547676143757467121799, +1.87372231195550901178616447364165103, +1.90552477686897435313026045256397261, +1.01223329959801327911506579370709214, +1.94342764634430065606292439827604728, +1.07993580861774983830038808098672476, +1.51337417783702622025732875070731947, +1.38140439556054288437876415553032654, +1.54196165253588072743521493806771027, +1.44739362806159491192293962134027358, +1.71327671113947679957160622015949906, +1.39085728491749765219164931743025169, +1.54419233756150472417347075970453282, +1.96712755966309461663923580436100792, +1.55608210384435192819748583743228119, +1.98791240851168522384015236688082238, +1.54792691908468073211240689810008631, +1.41052195823176402489184265046198490, +1.42859912173993160090890864660053784, +1.53444479302945396779271014653836596, +1.55068996474224133526791220587828352, +0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000, -0.577778983316170755916793382775478196E-33, -0.192592994438723585305597794258492732E-33, +0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000, -0.288889491658085377958396691387739098E-33, -0.192592994438723585305597794258492732E-33, -0.385185988877447170611195588516985464E-33, -0.288889491658085377958396691387739098E-33, -0.962964972193617926527988971292463659E-33, -0.770371977754894341222391177033970927E-33, -0.288889491658085377958396691387739098E-33, -0.962964972193617926527988971292463659E-34, -0.481482486096808963263994485646231830E-33, +0.192592994438723585305597794258492732E-33, +0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000, -0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000, +0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000, -0.192592994438723585305597794258492732E-33, +0.577778983316170755916793382775478196E-33, +0.288889491658085377958396691387739098E-33, -0.674075480535532548569592279904724561E-33, -0.288889491658085377958396691387739098E-33, -0.577778983316170755916793382775478196E-33, -0.192592994438723585305597794258492732E-33, -0.385185988877447170611195588516985464E-33, +0.00000000000000000000000000000000000, -0.770371977754894341222391177033970927E-33
198reltol = sqrt(epsilon(1._TKG))
199reltol
200+0.138777878078144567552953958511352539E-16
201isClose(data, atad(1:size(data)), reltol = reltol)
202T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
203call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
204
205lenData = getUnifRand(5, 100)
206lenData
207+44
208data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
209data
210(+1.50802827, +0.160508096), (+1.15311074, +0.753256440), (+1.88697755, +0.932579756), (+1.74459958, +0.943970084E-1), (+1.80190659, +0.752065361), (+1.91859734, +0.376607716), (+1.39192057, +0.606791258), (+1.60150409, +0.641681492), (+1.78830504, +0.439186692), (+1.18783927, +0.499087274), (+1.50924397, +0.248391032), (+1.20051348, +0.374293506), (+1.52273440, +0.194995224), (+1.14323831, +0.541868687), (+1.57074571, +0.745620906), (+1.87713575, +0.916187584), (+1.35799706, +0.806523025), (+1.34384108, +0.323309839), (+1.69120967, +0.564734876), (+1.71917510, +0.852570236), (+1.53238499, +0.179559231), (+1.39435542, +0.394752622E-1), (+1.67308474, +0.590706944), (+1.06381345, +0.581622720E-1), (+1.57599175, +0.796457589), (+1.43081903, +0.265108049), (+1.08771598, +0.702137411), (+1.61940241, +0.646635711), (+1.73352110, +0.917809308), (+1.60870767, +0.763546169), (+1.33709741, +0.504352689), (+1.83527231, +0.188041568), (+1.10710585, +0.896084487), (+1.94622338, +0.468280017), (+1.01135349, +0.120225370), (+1.58232880, +0.788603187), (+1.47089267, +0.260957181), (+1.88943446, +0.171458781), (+1.60474861, +0.920045912), (+1.39284456, +0.940284252), (+1.58902884, +0.858152032), (+1.61293733, +0.869105935), (+1.98872662, +0.687979043), (+1.11900163, +0.709927559)
211
212atad = getFFTI(getFFTF(data))
213atad
214(+1.50802827, +0.160508066), (+1.15311050, +0.753256440), (+1.88697755, +0.932579756), (+1.74459910, +0.943970084E-1), (+1.80190659, +0.752065480), (+1.91859722, +0.376607716), (+1.39192069, +0.606791198), (+1.60150385, +0.641681314), (+1.78830492, +0.439186811), (+1.18783915, +0.499087244), (+1.50924397, +0.248391211), (+1.20051336, +0.374293655), (+1.52273440, +0.194995657), (+1.14323831, +0.541868925), (+1.57074571, +0.745621085), (+1.87713575, +0.916187763), (+1.35799694, +0.806523085), (+1.34384096, +0.323309839), (+1.69120967, +0.564734757), (+1.71917510, +0.852570176), (+1.53238499, +0.179559246), (+1.39435554, +0.394753069E-1), (+1.67308486, +0.590706825), (+1.06381345, +0.581624061E-1), (+1.57599151, +0.796457529), (+1.43081903, +0.265108079), (+1.08771634, +0.702137291), (+1.61940229, +0.646635711), (+1.73352075, +0.917809308), (+1.60870743, +0.763546228), (+1.33709741, +0.504352689), (+1.83527207, +0.188041419), (+1.10710597, +0.896084547), (+1.94622326, +0.468279958), (+1.01135361, +0.120225430), (+1.58232903, +0.788602889), (+1.47089267, +0.260957181), (+1.88943434, +0.171458900), (+1.60474885, +0.920046031), (+1.39284468, +0.940284252), (+1.58902872, +0.858151913), (+1.61293709, +0.869105697), (+1.98872685, +0.687978923), (+1.11900187, +0.709927320), (+0.00000000, -0.253319740E-6), (+0.298023224E-6, -0.208616257E-6), (+0.238418579E-6, -0.149011612E-6), (+0.357627869E-6, +0.894069672E-7), (-0.178813934E-6, +0.298023224E-7), (+0.119209290E-6, -0.149011612E-7), (+0.476837158E-6, +0.298023224E-6), (+0.298023224E-6, +0.327825546E-6), (+0.119209290E-6, +0.149011612E-7), (+0.238418579E-6, -0.745058060E-7), (+0.119209290E-6, +0.894069672E-7), (+0.238418579E-6, +0.163912773E-6), (+0.119209290E-6, -0.894069672E-7), (+0.238418579E-6, -0.298023224E-7), (+0.417232513E-6, +0.596046448E-7), (+0.238418579E-6, +0.238418579E-6), (+0.298023224E-6, -0.596046448E-7), (+0.417232513E-6, -0.298023224E-7), (+0.178813934E-6, +0.149011612E-6), (+0.178813934E-6, +0.201165676E-6)
215reltol = sqrt(epsilon(1._TKG))
216reltol
217+0.345266977E-3
218isClose(data, atad(1:size(data)), reltol = reltol)
219T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
220call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
221
222lenData = getUnifRand(5, 100)
223lenData
224+54
225data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
226data
227(+1.5116778814528944, +0.61839207799384122), (+1.1820198000725406, +0.43161726488433061), (+1.7187521571698561, +0.35429077365739448), (+1.6684212330861325, +0.60972540881801818E-2), (+1.3597151061064832, +0.30782247955691888), (+1.8895691406171977, +0.55122352962173982), (+1.9984534420104962, +0.63445945396171932), (+1.0595027106010155, +0.21204591821760799), (+1.3102605687269004, +0.67845822275248535), (+1.0285302593774155, +0.81621071375431420), (+1.8808005476030649, +0.84983811453142222), (+1.3549347547722312, +0.60361681688511504), (+1.7102363238804525, +0.37109736771188340E-1), (+1.8327548440773564, +0.38801563587456844), (+1.0896433245139432, +0.86671678312133404E-1), (+1.9916224000136953, +0.70850339325787282), (+1.5184904819988154, +0.65302746276468626), (+1.1639493317717824, +0.73826522633100145), (+1.8012813644321892, +0.56732845281488697), (+1.1453215374234360, +0.53467192149388132), (+1.2509066125723662, +0.50344576704077693), (+1.1276355680667653, +0.99798400043682700), (+1.3156752244087175, +0.44793636201084197), (+1.8840322988658511, +0.96501728430856959), (+1.6515897923849487, +0.74002765384746150), (+1.7987617516998458, +0.80950797013489961), (+1.6675896279970883, +0.75568596727327109), (+1.1867845036047948, +0.17995862592239575), (+1.0922131182025405, +0.17119401618712871), (+1.8853152976317384, +0.37840592364752001), (+1.9228372807845586, +0.89971660812494836), (+1.9144732294008300, +0.35167722348972263), (+1.8309560935741582, +0.83830440296027009), (+1.1569858507622075, +0.16085436061929503), (+1.8759121003084793, +0.29456587178060389), (+1.9229738784964958, +0.92338632243245766), (+1.0262330515076592, +0.67967197249437716), (+1.3433355955451707, +0.25095201938323475), (+1.0880285200734008, +0.58159111624307014), (+1.8768604925120533, +0.45801390633137817E-2), (+1.0530361471190584, +0.93619154159851281), (+1.1440000613585850, +0.35708831105970240), (+1.7255978261431690, +0.67170058910801067), (+1.2419181108281334, +0.64034390830742616), (+1.6858065559564657, +0.86898813961580001), (+1.5897840452566592, +0.93128525248998961), (+1.3960458564730787, +0.48262461309215376), (+1.4205226407219165, +0.39192897631925949), (+1.9276745031406337, +0.65673017473287165), (+1.5982941789008280, +0.81526487379209711), (+1.9521831881724832, +0.63032306448446951), (+1.3776064556054974, +0.75752850202035726), (+1.5627562235202763, +0.78892425540045130), (+1.3300237568771118, +0.47862302933442136)
228
229atad = getFFTI(getFFTF(data))
230atad
231(+1.5116778814528942, +0.61839207799384122), (+1.1820198000725408, +0.43161726488433083), (+1.7187521571698561, +0.35429077365739475), (+1.6684212330861319, +0.60972540881805148E-2), (+1.3597151061064832, +0.30782247955691872), (+1.8895691406171977, +0.55122352962174026), (+1.9984534420104958, +0.63445945396171943), (+1.0595027106010153, +0.21204591821760818), (+1.3102605687269002, +0.67845822275248535), (+1.0285302593774155, +0.81621071375431453), (+1.8808005476030649, +0.84983811453142244), (+1.3549347547722308, +0.60361681688511526), (+1.7102363238804523, +0.37109736771188395E-1), (+1.8327548440773567, +0.38801563587456894), (+1.0896433245139432, +0.86671678312133765E-1), (+1.9916224000136948, +0.70850339325787304), (+1.5184904819988152, +0.65302746276468626), (+1.1639493317717824, +0.73826522633100133), (+1.8012813644321892, +0.56732845281488686), (+1.1453215374234358, +0.53467192149388121), (+1.2509066125723662, +0.50344576704077704), (+1.1276355680667653, +0.99798400043682722), (+1.3156752244087175, +0.44793636201084180), (+1.8840322988658513, +0.96501728430856937), (+1.6515897923849487, +0.74002765384746150), (+1.7987617516998460, +0.80950797013489972), (+1.6675896279970883, +0.75568596727327098), (+1.1867845036047948, +0.17995862592239584), (+1.0922131182025407, +0.17119401618712876), (+1.8853152976317382, +0.37840592364752013), (+1.9228372807845586, +0.89971660812494814), (+1.9144732294008295, +0.35167722348972263), (+1.8309560935741580, +0.83830440296027020), (+1.1569858507622073, +0.16085436061929512), (+1.8759121003084793, +0.29456587178060373), (+1.9229738784964956, +0.92338632243245744), (+1.0262330515076594, +0.67967197249437716), (+1.3433355955451707, +0.25095201938323475), (+1.0880285200734003, +0.58159111624307003), (+1.8768604925120533, +0.45801390633138095E-2), (+1.0530361471190579, +0.93619154159851270), (+1.1440000613585850, +0.35708831105970240), (+1.7255978261431690, +0.67170058910801056), (+1.2419181108281332, +0.64034390830742582), (+1.6858065559564652, +0.86898813961580013), (+1.5897840452566585, +0.93128525248998950), (+1.3960458564730789, +0.48262461309215376), (+1.4205226407219163, +0.39192897631925921), (+1.9276745031406335, +0.65673017473287165), (+1.5982941789008283, +0.81526487379209722), (+1.9521831881724832, +0.63032306448446918), (+1.3776064556054977, +0.75752850202035671), (+1.5627562235202763, +0.78892425540045141), (+1.3300237568771118, +0.47862302933442141), (+0.33306690738754696E-15, +0.55511151231257827E-16), (+0.22204460492503131E-15, +0.0000000000000000), (-0.11102230246251565E-15, +0.16653345369377348E-15), (+0.22204460492503131E-15, +0.0000000000000000), (+0.66613381477509392E-15, +0.49960036108132044E-15), (+0.66613381477509392E-15, +0.36082248300317588E-15), (+0.44408920985006262E-15, +0.55511151231257827E-16), (+0.33306690738754696E-15, +0.11102230246251565E-15), (+0.33306690738754696E-15, +0.61062266354383610E-15), (+0.44408920985006262E-15, +0.55511151231257827E-15)
232reltol = sqrt(epsilon(1._TKG))
233reltol
234+0.14901161193847656E-7
235isClose(data, atad(1:size(data)), reltol = reltol)
236T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
237call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
238
239lenData = getUnifRand(5, 100)
240lenData
241+88
242data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
243data
244(+1.43774209718366566832046354351721247, +0.151425147921106875807953225659336530), (+1.73868987524825699414930895735845815, +0.800160826863713564882585467128090847), (+1.40978411762223267938651069714604933, +0.727036311747844821601054261872311260), (+1.88668418229025975762198824357077541, +0.854239700020867958824720918734626098), (+1.40018909260436905843971499707450529, +0.342335991580876089997879485179828510), (+1.47579501686228264541561768689446964, +0.303887721805071861883490732306394391), (+1.68528073387701900549991891147562375, +0.394117453916856797321475664269405403), (+1.45819306048582704031445885768838776, +0.343430739089823423142159874031534903), (+1.23861084680354268639435132077780098, +0.503229861136485038106981895972234452), (+1.11594293561999623892800312694653694, +0.630026659103872015142511886842752608), (+1.08959563520161021271472495667401018, +0.686294831282123599528415223547105613E-3), (+1.78559430573996671189660312227648834, +0.390229055349516412892014961505026663E-1), (+1.13475363877696559206816156582032342, +0.929546975096523620003349898660036369), (+1.82927172592211741028052745378518839, +0.809981724853620995102210875744972323), (+1.94416243863440975915205945766719377, +0.111669511931039849620148764731024318), (+1.43502373690893059186669563697658648, +0.842265172081799534851030924070991871), (+1.23035528385880587441940496325549921, +0.956982630968911887451465872489447044), (+1.65947180188760049294853901944216451, +0.696547664882517709412245277414446970), (+1.41221302444489392226789623193934393, +0.375573397707270477547364513761019454), (+1.02046651186665854300002140173554473, +0.152904536890364521417579228942766425), (+1.84690667711808504849319720372464000, +0.716301505479182908788503200870025249), (+1.44971387082634000628236292502926918, +0.460699872856290690079764092585047356), (+1.56501901438630110435717042827983849, +0.369169358982629051635324353612018550), (+1.96322367725765577837772559752474932, +0.998566129990813964155717905955705344), (+1.97804077883692480239890569495270492, +0.622655309387930050366813349707794021), (+1.23677407967106000413940068089524828, +0.351729095076716717606960970622479646), (+1.11674745054762506194255253042789484, +0.470811384631820168239467283331725764), (+1.10792588088348491526550555819499190, +0.210302046988614142417915350593521516E-1), (+1.54245634160969307683750616484718895, +0.126058512903228701237300370311142280), (+1.30178708570661434103260257491051866, +0.352279620561867178018017559619167028), (+1.91650881238184829644311884589271335, +0.526732503024730179742931824516388360), (+1.72433441759536863939653250161617011, +0.647613005635178860320579175594365754), (+1.39907802265933900872241717400686852, +0.589882925737138119709404960500401079E-1), (+1.06765433779408642268536912877552376, +0.630195110580590194181160773971786130), (+1.37947844208044303072103522487381552, +0.355642160866848892070693994618340158E-1), (+1.07612803716850283613198858602164539, +0.727878824882908384302944933959542603), (+1.60208362062628324541889983113402677, +0.328550869716853059598857719610354228), (+1.75336977812056489973155871137788300, +0.507964790206186416705242227272233836), (+1.74415999058355453522551993242222397, +0.500022077704376250342462956435737200E-1), (+1.90981550304814803733324351297323500, +0.302124395321055271136429245211471635), (+1.64245679679576827537190710201137712, +0.562262166226255289338641437856569745), (+1.69667692174659314001108094433659844, +0.333870978293009511226065625614289569E-1), (+1.57585720497541917212172081118702383, +0.204825925465865839112291590019052057), (+1.72943444219664702963326651372028984, +0.810639866849950399170419810809302177), (+1.27789267524481620178456797296621188, +0.911707796863302995190148241144380446), (+1.63846816658711961833435290437177331, +0.349617894237521607029568711354605714), (+1.40879205187937125649196402641327134, +0.822594872995159553689520938655986250), (+1.88639283420903987296575856904106295, +0.186299829537683446579998050271137492), (+1.67843950963283174926598010351440925, +0.468780499258420001390748273901546377), (+1.73374121249673065975567286577873980, +0.949113496605215078125885685946902524), (+1.10009330850339095163279330236603932, +0.596088863209944756848385385673892871), (+1.71921203519430472104221681968916796, +0.540886126471097547800028324090931703), (+1.88536896099763973174340562647363061, +0.798542282470219876722980198541696598), (+1.94962053780076951809575173747223803, +0.502716549957740677100365990768980875), (+1.79415320595532193512922217699275373, +0.628330739037616052440466486710384136), (+1.28160046264800208986234888810052879, +0.662077241544259143299868788152070400E-1), (+1.21571395939618265928727982139571771, +0.495422563700593383690504339620526799), (+1.97760879981246734988877690792953961, +0.764264457999215958079973350272859364), (+1.96151156889482295789508209504880265, +0.340500052744088370148070117881810099), (+1.25868596475882721178467360858810808, +0.812861514307376136309597745695707597), (+1.85475431592479062904587659034010729, +0.407501834237890517936448564634887311), (+1.65245523924747713006848534484721797, +0.989951169534405583487440158997407293E-1), (+1.50192780772082574396462791530587744, +0.728582031094960179785306813284954150), (+1.88533776612405322604445764291506208, +0.467694403689904559795051661554702707), (+1.16427957291559077375333268342565178, +0.933111561083721338740697561960725274), (+1.60053663280651170612251176351284282, +0.531293714306894955276621669572819169), (+1.30416334788479177110764240652012112, +0.576571413405106685561510974616396671), (+1.79622358768468224735631339837169119, +0.966935652710776401696038639824361431), (+1.82160227239431823374823751730310050, +0.145980762070517052659687708898502007), (+1.22913146273764967384091931939127027, +0.809700716924240206886115285265502669), (+1.01395045856093096435431422797205457, +0.591552800670623787014812878474631480), (+1.58495209934166072237340057905175088, +0.221527396001158791497879886726423380), (+1.35997710172165826927240833346613977, +0.525503479062196435559961049645183710), (+1.09123132327705904248916169428770914, +0.691335702674294878981690287260772290), (+1.93513300626447614722307488762828253, +0.757930236205672426992960382813843211), (+1.09888366133756853812818966836200557, +0.567645524597617917330229910033205584E-1), (+1.59874084525124001974664710573779624, +0.804970158285595532539230274517340218), (+1.29239699488932201633090324114107176, +0.993147724617392255683612411529553516), (+1.55934709127529371928070348487465356, +0.928285027591562349965994182727946906), (+1.58138998229440853979015810690987167, +0.498502890418172568777099809601066541), (+1.41151533501107424061373882606695055, +0.936008265282350736663379129588181169), (+1.20940698672153302700811866494491951, +0.306671464515515049678385249030046385), (+1.92072995554289817161997271697429080, +0.268182312512930027301379096244667600), (+1.60812931438097642348048097592141122, +0.387731671350776897482247421729345995), (+1.99248298484049235625234651862977230, +0.148125396756051719830928326122807613E-1), (+1.98754153382440346978495778282410583, +0.460964944065996359553976151490776214), (+1.10578058782717227191971096877692429, +0.166549884986369191309589936673233595), (+1.38116276451886064714668293162393320, +0.248389002988257868327270583378721716)
245
246atad = getFFTI(getFFTF(data))
247atad
248(+1.43774209718366566832046354351721247, +0.151425147921106875807953225659336530), (+1.73868987524825699414930895735845796, +0.800160826863713564882585467128090847), (+1.40978411762223267938651069714604952, +0.727036311747844821601054261872311067), (+1.88668418229025975762198824357077541, +0.854239700020867958824720918734626098), (+1.40018909260436905843971499707450548, +0.342335991580876089997879485179828413), (+1.47579501686228264541561768689446945, +0.303887721805071861883490732306394247), (+1.68528073387701900549991891147562356, +0.394117453916856797321475664269405114), (+1.45819306048582704031445885768838776, +0.343430739089823423142159874031534662), (+1.23861084680354268639435132077780136, +0.503229861136485038106981895972234452), (+1.11594293561999623892800312694653675, +0.630026659103872015142511886842752511), (+1.08959563520161021271472495667401037, +0.686294831282123599528415223547057464E-3), (+1.78559430573996671189660312227648873, +0.390229055349516412892014961505025700E-1), (+1.13475363877696559206816156582032304, +0.929546975096523620003349898660036465), (+1.82927172592211741028052745378518877, +0.809981724853620995102210875744972419), (+1.94416243863440975915205945766719435, +0.111669511931039849620148764731024222), (+1.43502373690893059186669563697658629, +0.842265172081799534851030924070991967), (+1.23035528385880587441940496325549921, +0.956982630968911887451465872489447236), (+1.65947180188760049294853901944216432, +0.696547664882517709412245277414447067), (+1.41221302444489392226789623193934413, +0.375573397707270477547364513761019502), (+1.02046651186665854300002140173554473, +0.152904536890364521417579228942766233), (+1.84690667711808504849319720372464000, +0.716301505479182908788503200870025056), (+1.44971387082634000628236292502926918, +0.460699872856290690079764092585047356), (+1.56501901438630110435717042827983868, +0.369169358982629051635324353612018406), (+1.96322367725765577837772559752474932, +0.998566129990813964155717905955705152), (+1.97804077883692480239890569495270530, +0.622655309387930050366813349707794310), (+1.23677407967106000413940068089524789, +0.351729095076716717606960970622479646), (+1.11674745054762506194255253042789523, +0.470811384631820168239467283331725861), (+1.10792588088348491526550555819499190, +0.210302046988614142417915350593521636E-1), (+1.54245634160969307683750616484718876, +0.126058512903228701237300370311142353), (+1.30178708570661434103260257491051847, +0.352279620561867178018017559619167028), (+1.91650881238184829644311884589271412, +0.526732503024730179742931824516388552), (+1.72433441759536863939653250161617030, +0.647613005635178860320579175594365754), (+1.39907802265933900872241717400686852, +0.589882925737138119709404960500400718E-1), (+1.06765433779408642268536912877552337, +0.630195110580590194181160773971786226), (+1.37947844208044303072103522487381590, +0.355642160866848892070693994618341361E-1), (+1.07612803716850283613198858602164519, +0.727878824882908384302944933959542796), (+1.60208362062628324541889983113402716, +0.328550869716853059598857719610354132), (+1.75336977812056489973155871137788319, +0.507964790206186416705242227272233836), (+1.74415999058355453522551993242222435, +0.500022077704376250342462956435736959E-1), (+1.90981550304814803733324351297323539, +0.302124395321055271136429245211471538), (+1.64245679679576827537190710201137731, +0.562262166226255289338641437856569842), (+1.69667692174659314001108094433659882, +0.333870978293009511226065625614291014E-1), (+1.57585720497541917212172081118702440, +0.204825925465865839112291590019052321), (+1.72943444219664702963326651372028984, +0.810639866849950399170419810809302659), (+1.27789267524481620178456797296621188, +0.911707796863302995190148241144380735), (+1.63846816658711961833435290437177369, +0.349617894237521607029568711354606051), (+1.40879205187937125649196402641327192, +0.822594872995159553689520938655986539), (+1.88639283420903987296575856904106314, +0.186299829537683446579998050271137444), (+1.67843950963283174926598010351440964, +0.468780499258420001390748273901546329), (+1.73374121249673065975567286577873980, +0.949113496605215078125885685946902909), (+1.10009330850339095163279330236603951, +0.596088863209944756848385385673893159), (+1.71921203519430472104221681968916835, +0.540886126471097547800028324090932088), (+1.88536896099763973174340562647363080, +0.798542282470219876722980198541696598), (+1.94962053780076951809575173747223841, +0.502716549957740677100365990768980972), (+1.79415320595532193512922217699275411, +0.628330739037616052440466486710384233), (+1.28160046264800208986234888810052841, +0.662077241544259143299868788152069678E-1), (+1.21571395939618265928727982139571809, +0.495422563700593383690504339620526895), (+1.97760879981246734988877690792953999, +0.764264457999215958079973350272859942), (+1.96151156889482295789508209504880323, +0.340500052744088370148070117881810533), (+1.25868596475882721178467360858810789, +0.812861514307376136309597745695708078), (+1.85475431592479062904587659034010729, +0.407501834237890517936448564634887311), (+1.65245523924747713006848534484721797, +0.989951169534405583487440158997407052E-1), (+1.50192780772082574396462791530587801, +0.728582031094960179785306813284954439), (+1.88533776612405322604445764291506227, +0.467694403689904559795051661554703093), (+1.16427957291559077375333268342565178, +0.933111561083721338740697561960725082), (+1.60053663280651170612251176351284263, +0.531293714306894955276621669572819265), (+1.30416334788479177110764240652012131, +0.576571413405106685561510974616396960), (+1.79622358768468224735631339837169119, +0.966935652710776401696038639824361912), (+1.82160227239431823374823751730310069, +0.145980762070517052659687708898501863), (+1.22913146273764967384091931939127027, +0.809700716924240206886115285265502669), (+1.01395045856093096435431422797205476, +0.591552800670623787014812878474631672), (+1.58495209934166072237340057905175107, +0.221527396001158791497879886726423428), (+1.35997710172165826927240833346613996, +0.525503479062196435559961049645183807), (+1.09123132327705904248916169428770856, +0.691335702674294878981690287260772868), (+1.93513300626447614722307488762828272, +0.757930236205672426992960382813843596), (+1.09888366133756853812818966836200518, +0.567645524597617917330229910033206065E-1), (+1.59874084525124001974664710573779605, +0.804970158285595532539230274517340218), (+1.29239699488932201633090324114107176, +0.993147724617392255683612411529553804), (+1.55934709127529371928070348487465375, +0.928285027591562349965994182727947099), (+1.58138998229440853979015810690987129, +0.498502890418172568777099809601066733), (+1.41151533501107424061373882606695055, +0.936008265282350736663379129588180976), (+1.20940698672153302700811866494491912, +0.306671464515515049678385249030046289), (+1.92072995554289817161997271697429100, +0.268182312512930027301379096244667455), (+1.60812931438097642348048097592141122, +0.387731671350776897482247421729346187), (+1.99248298484049235625234651862977249, +0.148125396756051719830928326122807613E-1), (+1.98754153382440346978495778282410621, +0.460964944065996359553976151490776022), (+1.10578058782717227191971096877692410, +0.166549884986369191309589936673233643), (+1.38116276451886064714668293162393320, +0.248389002988257868327270583378721812), (-0.192592994438723585305597794258492732E-33, -0.337037740267766274284796139952362281E-33), (-0.866668474974256133875190074163217293E-33, +0.216667118743564033468797518540804323E-33), (-0.481482486096808963263994485646231830E-33, -0.361111864572606722447995864234673872E-33), (-0.962964972193617926527988971292463659E-33, +0.361111864572606722447995864234673872E-34), (-0.288889491658085377958396691387739098E-33, -0.168518870133883137142398069976181140E-33), (-0.481482486096808963263994485646231830E-33, +0.00000000000000000000000000000000000), (-0.192592994438723585305597794258492732E-33, -0.433334237487128066937595037081608647E-33), (-0.577778983316170755916793382775478196E-33, +0.144444745829042688979198345693869549E-33), (-0.288889491658085377958396691387739098E-33, -0.156481807981462913060798207835025345E-33), (-0.962964972193617926527988971292463659E-33, -0.481482486096808963263994485646231830E-34), (-0.288889491658085377958396691387739098E-33, -0.216667118743564033468797518540804323E-33), (-0.770371977754894341222391177033970927E-33, +0.00000000000000000000000000000000000), (+0.00000000000000000000000000000000000, -0.481482486096808963263994485646231830E-34), (-0.577778983316170755916793382775478196E-33, +0.240741243048404481631997242823115915E-33), (-0.481482486096808963263994485646231830E-33, -0.216667118743564033468797518540804323E-33), (-0.481482486096808963263994485646231830E-33, +0.722223729145213444895991728469347744E-34), (+0.962964972193617926527988971292463659E-34, -0.385185988877447170611195588516985464E-33), (-0.962964972193617926527988971292463659E-33, -0.240741243048404481631997242823115915E-33), (-0.385185988877447170611195588516985464E-33, -0.601853107621011204079993107057789787E-33), (-0.962964972193617926527988971292463659E-33, -0.288889491658085377958396691387739098E-33), (-0.385185988877447170611195588516985464E-33, -0.144444745829042688979198345693869549E-33), (-0.481482486096808963263994485646231830E-33, +0.144444745829042688979198345693869549E-33), (-0.192592994438723585305597794258492732E-33, -0.385185988877447170611195588516985464E-33), (-0.962964972193617926527988971292463659E-33, -0.481482486096808963263994485646231830E-34), (-0.288889491658085377958396691387739098E-33, +0.481482486096808963263994485646231830E-34), (-0.962964972193617926527988971292463659E-33, -0.288889491658085377958396691387739098E-33), (-0.288889491658085377958396691387739098E-33, -0.385185988877447170611195588516985464E-33), (-0.770371977754894341222391177033970927E-33, -0.433334237487128066937595037081608647E-33), (-0.192592994438723585305597794258492732E-33, +0.192592994438723585305597794258492732E-33), (-0.770371977754894341222391177033970927E-33, -0.481482486096808963263994485646231830E-34), (-0.385185988877447170611195588516985464E-33, -0.962964972193617926527988971292463659E-34), (-0.770371977754894341222391177033970927E-33, +0.722223729145213444895991728469347744E-34), (-0.192592994438723585305597794258492732E-33, -0.264815367353244929795196967105427506E-33), (-0.105926146941297971918078786842171003E-32, -0.433334237487128066937595037081608647E-33), (-0.577778983316170755916793382775478196E-33, -0.577778983316170755916793382775478196E-33), (-0.481482486096808963263994485646231830E-33, -0.674075480535532548569592279904724561E-33), (-0.481482486096808963263994485646231830E-33, +0.962964972193617926527988971292463659E-34), (-0.866668474974256133875190074163217293E-33, -0.385185988877447170611195588516985464E-33), (-0.192592994438723585305597794258492732E-33, -0.433334237487128066937595037081608647E-33), (-0.577778983316170755916793382775478196E-33, -0.457408361791968515100794761363920238E-33)
249reltol = sqrt(epsilon(1._TKG))
250reltol
251+0.138777878078144567552953958511352539E-16
252isClose(data, atad(1:size(data)), reltol = reltol)
253T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
254call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
255
256lenData = getUnifRand(5, 100)
257lenData
258+64
259data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
260data
261+1.09188235, +1.12480891, +1.76709628, +1.73399651, +1.98878956, +1.10597229, +1.02915668, +1.89574718, +1.74162579, +1.51619864, +1.94362330, +1.85002589, +1.46715915, +1.80737257, +1.49742603, +1.76926053, +1.79329967, +1.14901876, +1.14134455, +1.40117502, +1.36488724, +1.26666379, +1.36223698, +1.34041047, +1.01914895, +1.67864156, +1.08011937, +1.57883763, +1.75429893, +1.69932270, +1.89543104, +1.66105151, +1.84533370, +1.89782166, +1.50371051, +1.39658308, +1.24129450, +1.16283131, +1.02808952, +1.09834003, +1.99893224, +1.40875673, +1.85337996, +1.51881814, +1.21633172, +1.87847733, +1.30404413, +1.26287413, +1.75659871, +1.34427881, +1.43302858, +1.78332543, +1.96685612, +1.60225868, +1.25533533, +1.78669047, +1.30533409, +1.47584951, +1.02005124, +1.35648608, +1.74511790, +1.03132319, +1.37154245, +1.59498858
262
263atad = getFFTI(getFFTF(data))
264atad
265+1.09188223, +1.12480903, +1.76709592, +1.73399639, +1.98878932, +1.10597229, +1.02915657, +1.89574718, +1.74162567, +1.51619875, +1.94362283, +1.85002577, +1.46715891, +1.80737257, +1.49742591, +1.76926041, +1.79329956, +1.14901876, +1.14134455, +1.40117490, +1.36488712, +1.26666391, +1.36223686, +1.34041047, +1.01914883, +1.67864156, +1.08011913, +1.57883775, +1.75429869, +1.69932270, +1.89543092, +1.66105151, +1.84533358, +1.89782166, +1.50371015, +1.39658308, +1.24129438, +1.16283131, +1.02808940, +1.09834003, +1.99893224, +1.40875685, +1.85337949, +1.51881802, +1.21633160, +1.87847733, +1.30404413, +1.26287413, +1.75659859, +1.34427881, +1.43302846, +1.78332531, +1.96685588, +1.60225880, +1.25533521, +1.78669047, +1.30533385, +1.47584963, +1.02005100, +1.35648620, +1.74511790, +1.03132319, +1.37154233, +1.59498858
266reltol = sqrt(epsilon(1._TKG))
267reltol
268+0.345266977E-3
269isClose(data, atad(1:size(data)), reltol = reltol)
270T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
271call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
272
273lenData = getUnifRand(5, 100)
274lenData
275+55
276data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
277data
278+1.1540328705359759, +1.7795932387975690, +1.2110687213001023, +1.0097211184399115, +1.7220337125649634, +1.6463344804401601, +1.9771196069200987, +1.7906122603104508, +1.5421586514489345, +1.2209421323838332, +1.3056715686823268, +1.5905042896407520, +1.3596483901715548, +1.6190865332896316, +1.6914477944280766, +1.6765856096360583, +1.1931054172114988, +1.2010781265575114, +1.6097286500484995, +1.5785467676712923, +1.6826952115037153, +1.6327043290690846, +1.1302521893447555, +1.4504716335657535, +1.8678031828678483, +1.6584844797698735, +1.0093526527044943, +1.3492458539066901, +1.9092758927541786, +1.2576252519004014, +1.0245210273575713, +1.5895595486859855, +1.0566323821592105, +1.6539653695546368, +1.9287483452626457, +1.1666670674014887, +1.5665919979976015, +1.4719177341511491, +1.6542605156042081, +1.0954440723681436, +1.9428492016542698, +1.7173697064656892, +1.5675019536483314, +1.9808228345792229, +1.1972337340072448, +1.5161913651144125, +1.9295688159094362, +1.8610172581852780, +1.9924239596417364, +1.7156608673279543, +1.8663993067441993, +1.6016180612428379, +1.4566697855931352, +1.8292430018868546, +1.7672789878958874
279
280atad = getFFTI(getFFTF(data))
281atad
282+1.1540328705359759, +1.7795932387975688, +1.2110687213001023, +1.0097211184399117, +1.7220337125649632, +1.6463344804401601, +1.9771196069200985, +1.7906122603104508, +1.5421586514489343, +1.2209421323838332, +1.3056715686823268, +1.5905042896407515, +1.3596483901715544, +1.6190865332896311, +1.6914477944280768, +1.6765856096360581, +1.1931054172114990, +1.2010781265575114, +1.6097286500485000, +1.5785467676712921, +1.6826952115037153, +1.6327043290690844, +1.1302521893447559, +1.4504716335657533, +1.8678031828678483, +1.6584844797698728, +1.0093526527044947, +1.3492458539066896, +1.9092758927541780, +1.2576252519004010, +1.0245210273575718, +1.5895595486859850, +1.0566323821592103, +1.6539653695546364, +1.9287483452626462, +1.1666670674014885, +1.5665919979976013, +1.4719177341511487, +1.6542605156042083, +1.0954440723681431, +1.9428492016542698, +1.7173697064656888, +1.5675019536483314, +1.9808228345792225, +1.1972337340072448, +1.5161913651144119, +1.9295688159094366, +1.8610172581852777, +1.9924239596417366, +1.7156608673279541, +1.8663993067441997, +1.6016180612428377, +1.4566697855931352, +1.8292430018868546, +1.7672789878958879, -0.22204460492503131E-15, +0.55511151231257827E-15, +0.11102230246251565E-15, +0.77715611723760958E-15, +0.44408920985006262E-15, +0.66613381477509392E-15, -0.11102230246251565E-15, +0.77715611723760958E-15, +0.44408920985006262E-15
283reltol = sqrt(epsilon(1._TKG))
284reltol
285+0.14901161193847656E-7
286isClose(data, atad(1:size(data)), reltol = reltol)
287T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
288call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
289
290lenData = getUnifRand(5, 100)
291lenData
292+27
293data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
294data
295+1.08583318874963729830723219931305098, +1.24295549524410471048989725353903783, +1.76773793934366828929062330927878727, +1.17418459090147162611938879357700461, +1.87786401958082663922596969927579743, +1.05793968346363812430888200402992004, +1.18396730996493662491019752973372269, +1.01155438416396244100653972639712900, +1.37534775628249761359721613339862590, +1.01569788115297557151829252876226099, +1.88328317848463645123628331346525534, +1.14691612351757181963074525637718740, +1.16634076920387404699936371241790051, +1.88103277783826470431115810151144582, +1.50012719458718613852792061175131406, +1.68081345801304102157214614375221803, +1.83089331692689128392232680646629811, +1.46315603833361549302193276193265067, +1.26023403609101346384776943875919413, +1.14566706163089409202690769930313592, +1.82402540035521427277961894020243252, +1.03804020592604597493525693667310810, +1.18133791594733291706886960133776337, +1.62080499397014809563136193930842121, +1.14844199175287722060908255541510499, +1.17777997330322731079664603513243777, +1.83580627343838672256970440113188458
296
297atad = getFFTI(getFFTF(data))
298atad
299+1.08583318874963729830723219931305079, +1.24295549524410471048989725353903744, +1.76773793934366828929062330927878688, +1.17418459090147162611938879357700442, +1.87786401958082663922596969927579724, +1.05793968346363812430888200402991985, +1.18396730996493662491019752973372249, +1.01155438416396244100653972639712880, +1.37534775628249761359721613339862571, +1.01569788115297557151829252876226041, +1.88328317848463645123628331346525515, +1.14691612351757181963074525637718740, +1.16634076920387404699936371241790090, +1.88103277783826470431115810151144562, +1.50012719458718613852792061175131445, +1.68081345801304102157214614375221803, +1.83089331692689128392232680646629791, +1.46315603833361549302193276193265028, +1.26023403609101346384776943875919374, +1.14566706163089409202690769930313592, +1.82402540035521427277961894020243272, +1.03804020592604597493525693667310810, +1.18133791594733291706886960133776298, +1.62080499397014809563136193930842121, +1.14844199175287722060908255541510480, +1.17777997330322731079664603513243758, +1.83580627343838672256970440113188419, -0.481482486096808963263994485646231830E-33, -0.192592994438723585305597794258492732E-33, -0.385185988877447170611195588516985464E-33, -0.481482486096808963263994485646231830E-33, -0.385185988877447170611195588516985464E-33
300reltol = sqrt(epsilon(1._TKG))
301reltol
302+0.138777878078144567552953958511352539E-16
303isClose(data, atad(1:size(data)), reltol = reltol)
304T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
305call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
306
307lenData = getUnifRand(5, 100)
308lenData
309+84
310data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
311data
312(+1.18957400, +0.724356592), (+1.81480026, +0.525718331E-1), (+1.89673185, +0.163677990), (+1.23670411, +0.946296275), (+1.01288342, +0.791814566), (+1.39198446, +0.924046934), (+1.99663544, +0.420579314), (+1.78284442, +0.662948549), (+1.70490456, +0.268078744), (+1.35102582, +0.206923008), (+1.54847860, +0.811460316), (+1.13473630, +0.578046441E-1), (+1.40363359, +0.142532289), (+1.41473007, +0.439081728), (+1.29244447, +0.288013875), (+1.05855656, +0.632347584), (+1.83637512, +0.395193100E-1), (+1.65521991, +0.651776791E-1), (+1.87006259, +0.873606801E-1), (+1.54781508, +0.322353423), (+1.78322804, +0.534108937), (+1.06230509, +0.938106775E-1), (+1.67499137, +0.454718232), (+1.95343578, +0.693114519), (+1.59599972, +0.837659836E-1), (+1.76300859, +0.875228047), (+1.40282798, +0.775510013), (+1.67780304, +0.209622443), (+1.85349202, +0.966325879), (+1.89212561, +0.101883531), (+1.89437461, +0.741981030), (+1.95993161, +0.382341564), (+1.14101434, +0.172187746), (+1.53467584, +0.461116910), (+1.29203594, +0.973292112), (+1.30827570, +0.263587713), (+1.26602912, +0.564552128), (+1.64866340, +0.669170439), (+1.11179352, +0.438742280), (+1.91113019, +0.525532782), (+1.39012599, +0.508724332), (+1.45944858, +0.304736376), (+1.49988711, +0.462504685), (+1.25232816, +0.286720097), (+1.69963861, +0.150032878), (+1.51662827, +0.469773471), (+1.38642240, +0.102370620), (+1.11523414, +0.451510549E-1), (+1.54219198, +0.529639363), (+1.84163904, +0.596345901), (+1.27863812, +0.805421650), (+1.10480189, +0.967702627), (+1.52173197, +0.974045873), (+1.66184759, +0.415028930), (+1.20875955, +0.105584323), (+1.50255132, +0.980553091), (+1.62721133, +0.529305041), (+1.95157349, +0.786583424E-1), (+1.16545486, +0.635692775), (+1.92591190, +0.165850818), (+1.39767039, +0.757533610), (+1.72088826, +0.846035004), (+1.73712873, +0.347725868), (+1.05499625, +0.678279340), (+1.44166803, +0.311042547), (+1.24852371, +0.396478176E-1), (+1.74854040, +0.521208048), (+1.30206060, +0.479120612), (+1.97449195, +0.247764468), (+1.99960971, +0.241258144E-1), (+1.66411293, +0.239406586), (+1.61380517, +0.964335442), (+1.46176791, +0.367823005), (+1.93344903, +0.984452724), (+1.92142689, +0.927541018), (+1.03818226, +0.179913998), (+1.37093496, +0.177731216), (+1.32769156, +0.326360643), (+1.72954750, +0.211947203), (+1.75763786, +0.849004507), (+1.19218087, +0.911159277), (+1.76334345, +0.448198557), (+1.31441617, +0.342610657), (+1.27583456, +0.798955798)
313
314atad = getFFTI(getFFTF(data))
315atad
316(+1.18957400, +0.724356651), (+1.81480026, +0.525720008E-1), (+1.89673150, +0.163678050), (+1.23670363, +0.946296334), (+1.01288319, +0.791814566), (+1.39198446, +0.924046874), (+1.99663520, +0.420579076), (+1.78284431, +0.662948549), (+1.70490456, +0.268078893), (+1.35102582, +0.206923068), (+1.54847860, +0.811460376), (+1.13473618, +0.578047931E-1), (+1.40363359, +0.142532408), (+1.41473019, +0.439081907), (+1.29244471, +0.288013756), (+1.05855680, +0.632347465), (+1.83637512, +0.395194888E-1), (+1.65522003, +0.651778579E-1), (+1.87006223, +0.873608440E-1), (+1.54781473, +0.322353572), (+1.78322792, +0.534108937), (+1.06230509, +0.938108340E-1), (+1.67499113, +0.454717934), (+1.95343566, +0.693114519), (+1.59599972, +0.837662816E-1), (+1.76300871, +0.875228167), (+1.40282798, +0.775510132), (+1.67780304, +0.209622771), (+1.85349202, +0.966326118), (+1.89212561, +0.101883925), (+1.89437461, +0.741981030), (+1.95993161, +0.382341743), (+1.14101434, +0.172187686), (+1.53467584, +0.461116850), (+1.29203629, +0.973291993), (+1.30827570, +0.263587654), (+1.26602936, +0.564552069), (+1.64866364, +0.669170320), (+1.11179364, +0.438742340), (+1.91113019, +0.525532603), (+1.39012599, +0.508724332), (+1.45944858, +0.304736286), (+1.49988723, +0.462504715), (+1.25232816, +0.286719978), (+1.69963861, +0.150032759), (+1.51662827, +0.469773710), (+1.38642240, +0.102370642), (+1.11523438, +0.451509655E-1), (+1.54219186, +0.529639304), (+1.84163892, +0.596345782), (+1.27863801, +0.805421472), (+1.10480177, +0.967702389), (+1.52173209, +0.974045694), (+1.66184747, +0.415028691), (+1.20875955, +0.105584279), (+1.50255132, +0.980552852), (+1.62721109, +0.529304981), (+1.95157361, +0.786582977E-1), (+1.16545498, +0.635692716), (+1.92591155, +0.165850729), (+1.39767027, +0.757533669), (+1.72088790, +0.846035004), (+1.73712850, +0.347725868), (+1.05499625, +0.678279042), (+1.44166803, +0.311042547), (+1.24852371, +0.396477692E-1), (+1.74854028, +0.521207809), (+1.30206037, +0.479120493), (+1.97449207, +0.247764379), (+1.99960971, +0.241257548E-1), (+1.66411304, +0.239406526), (+1.61380506, +0.964335144), (+1.46176767, +0.367823154), (+1.93344855, +0.984452784), (+1.92142677, +0.927540898), (+1.03818214, +0.179913893), (+1.37093496, +0.177731276), (+1.32769167, +0.326360703), (+1.72954774, +0.211947277), (+1.75763774, +0.849004626), (+1.19218075, +0.911159217), (+1.76334333, +0.448198378), (+1.31441629, +0.342610538), (+1.27583444, +0.798955441), (+0.298023224E-6, +0.596046448E-7), (+0.00000000, -0.141561031E-6), (+0.476837158E-6, +0.134110451E-6), (+0.298023224E-6, +0.238418579E-6), (-0.119209290E-6, -0.298023224E-6), (-0.119209290E-6, -0.357627869E-6), (+0.238418579E-6, -0.119209290E-6), (+0.00000000, -0.230967999E-6), (+0.596046448E-7, -0.149011612E-6), (+0.00000000, -0.275671482E-6), (+0.00000000, -0.298023224E-7), (-0.178813934E-6, +0.596046448E-7), (+0.00000000, +0.670552254E-7), (-0.119209290E-6, +0.119209290E-6), (+0.298023224E-6, +0.238418579E-6), (-0.596046448E-7, +0.283122063E-6), (+0.00000000, +0.238418579E-6), (+0.119209290E-6, +0.238418579E-6), (+0.119209290E-6, +0.253319740E-6), (+0.178813934E-6, +0.476837158E-6), (-0.178813934E-6, +0.298023224E-7), (+0.119209290E-6, -0.298023224E-7), (+0.178813934E-6, +0.894069672E-7), (+0.00000000, +0.163912773E-6), (-0.596046448E-7, +0.670552254E-7), (+0.178813934E-6, -0.596046448E-7), (+0.00000000, +0.819563866E-7), (-0.596046448E-7, +0.298023224E-7), (+0.119209290E-6, +0.596046448E-7), (+0.238418579E-6, +0.119209290E-6), (+0.119209290E-6, +0.238418579E-6), (+0.119209290E-6, +0.178813934E-6), (+0.00000000, +0.178813934E-6), (+0.00000000, +0.178813934E-6), (+0.178813934E-6, +0.253319740E-6), (+0.596046448E-7, +0.298023224E-6), (+0.178813934E-6, -0.298023224E-7), (+0.238418579E-6, +0.745058060E-7), (+0.357627869E-6, +0.596046448E-7), (+0.119209290E-6, +0.238418579E-6), (+0.178813934E-6, +0.894069672E-7), (+0.178813934E-6, -0.119209290E-6), (-0.596046448E-7, +0.447034836E-7), (+0.596046448E-7, -0.894069672E-7)
317reltol = sqrt(epsilon(1._TKG))
318reltol
319+0.345266977E-3
320isClose(data, atad(1:size(data)), reltol = reltol)
321T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
322call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
323
324lenData = getUnifRand(5, 100)
325lenData
326+6
327data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
328data
329(+1.1610141963720673, +0.43225542570237530), (+1.3159077713379537, +0.29823481937186425E-1), (+1.1848144289159976, +0.48845981428596941), (+1.0250299207072988, +0.56437439670314893), (+1.3277036764638575, +0.62439813856212190), (+1.2570923334860313, +0.33145322907612751)
330
331atad = getFFTI(getFFTF(data))
332atad
333(+1.1610141963720673, +0.43225542570237524), (+1.3159077713379534, +0.29823481937186702E-1), (+1.1848144289159976, +0.48845981428596924), (+1.0250299207072988, +0.56437439670314871), (+1.3277036764638575, +0.62439813856212201), (+1.2570923334860311, +0.33145322907612745), (+0.11102230246251565E-15, +0.27755575615628914E-15), (+0.33306690738754696E-15, +0.55511151231257827E-16)
334reltol = sqrt(epsilon(1._TKG))
335reltol
336+0.14901161193847656E-7
337isClose(data, atad(1:size(data)), reltol = reltol)
338T, T, T, T, T, T
339call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
340
341lenData = getUnifRand(5, 100)
342lenData
343+64
344data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
345data
346(+1.37152682502707423797986162168786639, +0.888433980625952923838386723282174780), (+1.43350627406195233053338543926898350, +0.890688459207392536759504858694148984), (+1.14143318880192300007075941574201033, +0.250264878764796727261945597150531062), (+1.07488972171341499759208690041969462, +0.183972037594742951823269212909716403), (+1.14208301210978533751233691746870222, +0.348508672241719276431818703383981471), (+1.19748528299161327557442956974330758, +0.422310470580006963364439050515995579), (+1.70091514407654625431623036535468390, +0.958159792060530669251607876711301956), (+1.99292652057762554063357873351050203, +0.999630655102997587236951202133205973), (+1.69822120575911439127801493537223712, +0.498041207858635589185959083320504466), (+1.02227398679289695073310697403606710, +0.461331111774603677147004551018267144), (+1.96337183001991888911358738770818269, +0.735734885842924522839290443473308750E-1), (+1.83972089696592646340616713387884541, +0.113522992103144660303406073549361935), (+1.65113921657458150208898163838848663, +0.554911585999816405021692670178504478), (+1.31059229072079696185015713882167334, +0.482455932826912606776123968540303564), (+1.37879924216838310211265529171715654, +0.289292431667583959418623495062424567), (+1.64893697580964538512772646321483464, +0.692463833668070155560786710991924779), (+1.37429305220822178843501591691559389, +0.465235862013860269872798832589442667), (+1.71824909747927149711040579854632271, +0.102136743969186890260415001057419032), (+1.91316331600524533423794339864854822, +0.700111452362232324971927803841549698), (+1.81608189952776165625580762023095855, +0.604977501597621489044170719462568857), (+1.59985957494623830496183215028075041, +0.627780148083208207660897943705840265), (+1.44476174468681322159230381513451033, +0.722455468299631994277154792886193454), (+1.86965429424088950523470882306708877, +0.611040481340207396791317445303749771), (+1.28390186279359709792097037261747469, +0.658781444817069705824485119512100924E-1), (+1.11196875580112530264164049638943178, +0.654800307409914877434705090448445269), (+1.28226680868087126753774317297296488, +0.782391741750094726905204707162452749), (+1.46588893321944304436830207089859562, +0.958900964650198400027743502863055489), (+1.44770737644845317509935546033039045, +0.347762471573915078719310569138230775), (+1.62180971814373522656402110014427452, +0.640981114959515599013706436303657767), (+1.06688778266427884095088050929864993, +0.873032045556318679970395089595256497), (+1.86491788066126242804113596114523385, +0.203007618910245130917128144326120154), (+1.33724083130595278600668584288145338, +0.899037074226106148119390934955886953), (+1.39403742918957081180305901840089489, +0.497536713248466301795119951582808649), (+1.70784781582769271293598992602190717, +0.372804561744447805792568773649599002), (+1.21152417413215304143219802156259499, +0.628409749510840102056139974538736021), (+1.89065911091110516211836838253860637, +0.854512601652230734217136228623547731), (+1.27051225799069676749620736935343012, +0.290519522316003845454113959178723896), (+1.89576036055598305467924163564945581, +0.365896001811924975558556939918487269), (+1.75646220263817990963608835780642102, +0.420457691885596476257162960417425278), (+1.04226371763749389652547598851778769, +0.162086550178017962708549706566464960), (+1.13950593898401176893009663365296715, +0.297980627614995716838766534672087067), (+1.61113627700254825722714263166738180, +0.743246783005087890313210629979924777), (+1.64383582763030078944011736337544889, +0.338482775483332845474677084926951598), (+1.10178112331300329921972373756738250, +0.876875069823220699111587055237413726), (+1.36635246771164289677910413455039681, +0.781236859016687450091848897665835023), (+1.86882525160132886673060514784678419, +0.418526672045313509864839733126228042), (+1.10343550682678538473624963496546067, +0.402153557546912837066854615779094727), (+1.62150313140358277578797636997774235, +0.196349027849979829989350920044515006), (+1.49110802683127471112371672652273760, +0.604321588789981397765411955472938461), (+1.47826722896770000841231101180851987, +0.311269294632275611412926659846535967), (+1.02553524710593361009354361316821022, +0.963502483846091913907552850748598645), (+1.79891961002669700641519415345817802, +0.272059342120047808852743378164635506), (+1.09855876767283264783104251786414139, +0.221505898112836842603421958245748466E-1), (+1.99102708554505063866503963237020420, +0.127211973536598521486028986562925169E-1), (+1.87166955286065952557130853626685060, +0.529950931052950039151027885110371311), (+1.07156201546806605405395718934366436, +0.174501318297231109371916920198123123), (+1.95546137984235464827390846596831276, +0.688698092231415872191447414355153533), (+1.58034250387142636947410777474050431, +0.217913651686766300541621274030253737E-1), (+1.96961411956941468574075016373539296, +0.526792148383956212064962224080430047), (+1.88433577642293585055982463167032302, +0.775954444904228276591801298559687852), (+1.11225565214067359585231520510752378, +0.983594395530676317993177257889286750), (+1.21654750444987284486490068098775531, +0.205810583772992035385831962821943124), (+1.48927246039462144693321867271681547, +0.228837001533912714770288007847789570E-1), (+1.94436748420628740612493290243094822, +0.172416763076810595998008690185429246)
347
348atad = getFFTI(getFFTF(data))
349atad
350(+1.37152682502707423797986162168786601, +0.888433980625952923838386723282174877), (+1.43350627406195233053338543926898350, +0.890688459207392536759504858694148888), (+1.14143318880192300007075941574201052, +0.250264878764796727261945597150531206), (+1.07488972171341499759208690041969462, +0.183972037594742951823269212909716499), (+1.14208301210978533751233691746870203, +0.348508672241719276431818703383981326), (+1.19748528299161327557442956974330777, +0.422310470580006963364439050515995723), (+1.70091514407654625431623036535468390, +0.958159792060530669251607876711302245), (+1.99292652057762554063357873351050203, +0.999630655102997587236951202133206165), (+1.69822120575911439127801493537223693, +0.498041207858635589185959083320504466), (+1.02227398679289695073310697403606749, +0.461331111774603677147004551018267192), (+1.96337183001991888911358738770818269, +0.735734885842924522839290443473309232E-1), (+1.83972089696592646340616713387884522, +0.113522992103144660303406073549361935), (+1.65113921657458150208898163838848663, +0.554911585999816405021692670178504575), (+1.31059229072079696185015713882167334, +0.482455932826912606776123968540303612), (+1.37879924216838310211265529171715616, +0.289292431667583959418623495062424470), (+1.64893697580964538512772646321483406, +0.692463833668070155560786710991925068), (+1.37429305220822178843501591691559370, +0.465235862013860269872798832589442860), (+1.71824909747927149711040579854632290, +0.102136743969186890260415001057419008), (+1.91316331600524533423794339864854822, +0.700111452362232324971927803841549698), (+1.81608189952776165625580762023095835, +0.604977501597621489044170719462568760), (+1.59985957494623830496183215028075022, +0.627780148083208207660897943705840265), (+1.44476174468681322159230381513451052, +0.722455468299631994277154792886193550), (+1.86965429424088950523470882306708896, +0.611040481340207396791317445303749867), (+1.28390186279359709792097037261747469, +0.658781444817069705824485119512101406E-1), (+1.11196875580112530264164049638943159, +0.654800307409914877434705090448445269), (+1.28226680868087126753774317297296508, +0.782391741750094726905204707162452749), (+1.46588893321944304436830207089859562, +0.958900964650198400027743502863055489), (+1.44770737644845317509935546033039026, +0.347762471573915078719310569138230679), (+1.62180971814373522656402110014427452, +0.640981114959515599013706436303657864), (+1.06688778266427884095088050929864974, +0.873032045556318679970395089595256401), (+1.86491788066126242804113596114523346, +0.203007618910245130917128144326120154), (+1.33724083130595278600668584288145299, +0.899037074226106148119390934955887145), (+1.39403742918957081180305901840089450, +0.497536713248466301795119951582808745), (+1.70784781582769271293598992602190736, +0.372804561744447805792568773649599050), (+1.21152417413215304143219802156259499, +0.628409749510840102056139974538736021), (+1.89065911091110516211836838253860637, +0.854512601652230734217136228623547635), (+1.27051225799069676749620736935343012, +0.290519522316003845454113959178723848), (+1.89576036055598305467924163564945620, +0.365896001811924975558556939918487221), (+1.75646220263817990963608835780642102, +0.420457691885596476257162960417425375), (+1.04226371763749389652547598851778730, +0.162086550178017962708549706566465008), (+1.13950593898401176893009663365296715, +0.297980627614995716838766534672087260), (+1.61113627700254825722714263166738219, +0.743246783005087890313210629979924777), (+1.64383582763030078944011736337544908, +0.338482775483332845474677084926951742), (+1.10178112331300329921972373756738231, +0.876875069823220699111587055237413630), (+1.36635246771164289677910413455039662, +0.781236859016687450091848897665835215), (+1.86882525160132886673060514784678419, +0.418526672045313509864839733126228090), (+1.10343550682678538473624963496546028, +0.402153557546912837066854615779094631), (+1.62150313140358277578797636997774216, +0.196349027849979829989350920044515030), (+1.49110802683127471112371672652273741, +0.604321588789981397765411955472938750), (+1.47826722896770000841231101180852026, +0.311269294632275611412926659846535967), (+1.02553524710593361009354361316821022, +0.963502483846091913907552850748598742), (+1.79891961002669700641519415345817802, +0.272059342120047808852743378164635458), (+1.09855876767283264783104251786414120, +0.221505898112836842603421958245747022E-1), (+1.99102708554505063866503963237020458, +0.127211973536598521486028986562926132E-1), (+1.87166955286065952557130853626685060, +0.529950931052950039151027885110371600), (+1.07156201546806605405395718934366436, +0.174501318297231109371916920198123074), (+1.95546137984235464827390846596831257, +0.688698092231415872191447414355153629), (+1.58034250387142636947410777474050450, +0.217913651686766300541621274030255663E-1), (+1.96961411956941468574075016373539277, +0.526792148383956212064962224080430047), (+1.88433577642293585055982463167032264, +0.775954444904228276591801298559687948), (+1.11225565214067359585231520510752359, +0.983594395530676317993177257889286942), (+1.21654750444987284486490068098775531, +0.205810583772992035385831962821943220), (+1.48927246039462144693321867271681509, +0.228837001533912714770288007847789570E-1), (+1.94436748420628740612493290243094803, +0.172416763076810595998008690185429006)
351reltol = sqrt(epsilon(1._TKG))
352reltol
353+0.138777878078144567552953958511352539E-16
354isClose(data, atad(1:size(data)), reltol = reltol)
355T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
356call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
357
358lenData = getUnifRand(5, 100)
359lenData
360+31
361data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
362data
363+1.26936579, +1.97572184, +1.33291841, +1.94022226, +1.98830259, +1.13232398, +1.40226841, +1.23363853, +1.89776552, +1.06928587, +1.44278359, +1.77740431, +1.27190840, +1.09800434, +1.27649951, +1.53274500, +1.42951441, +1.28998590, +1.21984208, +1.97443104, +1.03673363, +1.03687716, +1.20130110, +1.65000534, +1.92093933, +1.83457279, +1.92503977, +1.90978873, +1.44376802, +1.37407303, +1.44301534
364
365atad = getFFTI(getFFTF(data))
366atad
367+1.26936579, +1.97572184, +1.33291841, +1.94022214, +1.98830247, +1.13232386, +1.40226829, +1.23363841, +1.89776528, +1.06928575, +1.44278336, +1.77740419, +1.27190816, +1.09800434, +1.27649951, +1.53274488, +1.42951441, +1.28998590, +1.21984196, +1.97443092, +1.03673363, +1.03687704, +1.20130122, +1.65000522, +1.92093933, +1.83457267, +1.92503953, +1.90978849, +1.44376791, +1.37407303, +1.44301534, +0.596046448E-7
368reltol = sqrt(epsilon(1._TKG))
369reltol
370+0.345266977E-3
371isClose(data, atad(1:size(data)), reltol = reltol)
372T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
373call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
374
375lenData = getUnifRand(5, 100)
376lenData
377+77
378data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
379data
380+1.8579126537288100, +1.6443596001261571, +1.2885650048845831, +1.9844763610103353, +1.6271924103436808, +1.4721625731156542, +1.6554244090923338, +1.7136791837803202, +1.7082099439147203, +1.1558747064139574, +1.3015839562176121, +1.7803359864911998, +1.7615126342854741, +1.1213070111829395, +1.0676777487218132, +1.7710151614167771, +1.5966230551416429, +1.4058933350651632, +1.4994216635994269, +1.4929096324321285, +1.6408027041473310, +1.4062248587870787, +1.0260984627766583, +1.8392595824430567, +1.2181418418045242, +1.6304144095277002, +1.4298444492756461, +1.2655948628080120, +1.4019715409023727, +1.8072240296495186, +1.4407392843138214, +1.0244756206609136, +1.1828394587254758, +1.4467884016818782, +1.1885269389340123, +1.1374894545873642, +1.8428142225493231, +1.7311872549593441, +1.4715943744887388, +1.4194907907019778, +1.1370368548478709, +1.3621604172817559, +1.7660663393572291, +1.2282105977591242, +1.5104869835256622, +1.9318877813669055, +1.5549465895298398, +1.5655164434822475, +1.8137543460783705, +1.8525340403081787, +1.3900023511010868, +1.2625398437339981, +1.0324189498087095, +1.1882688412690796, +1.3497713797672977, +1.5939277942212362, +1.4660823027448879, +1.0941408305292040, +1.4073260003856614, +1.0898803459302235, +1.7626306993562428, +1.9831095988512635, +1.1082709215913191, +1.2401978547315864, +1.4000206171213792, +1.9004673220372945, +1.5862344950091147, +1.7505652255381878, +1.2847694133445646, +1.9248446656297582, +1.6473157688369673, +1.7504742222483560, +1.4450603622118581, +1.6028796195619699, +1.7604531780262946, +1.6948321043549748, +1.3992018000754249
381
382atad = getFFTI(getFFTF(data))
383atad
384+1.8579126537288100, +1.6443596001261573, +1.2885650048845829, +1.9844763610103362, +1.6271924103436803, +1.4721625731156545, +1.6554244090923331, +1.7136791837803205, +1.7082099439147205, +1.1558747064139572, +1.3015839562176119, +1.7803359864912005, +1.7615126342854739, +1.1213070111829393, +1.0676777487218132, +1.7710151614167775, +1.5966230551416429, +1.4058933350651635, +1.4994216635994269, +1.4929096324321292, +1.6408027041473305, +1.4062248587870787, +1.0260984627766585, +1.8392595824430567, +1.2181418418045240, +1.6304144095277002, +1.4298444492756461, +1.2655948628080125, +1.4019715409023723, +1.8072240296495186, +1.4407392843138209, +1.0244756206609140, +1.1828394587254758, +1.4467884016818779, +1.1885269389340127, +1.1374894545873642, +1.8428142225493236, +1.7311872549593437, +1.4715943744887392, +1.4194907907019774, +1.1370368548478709, +1.3621604172817552, +1.7660663393572298, +1.2282105977591244, +1.5104869835256627, +1.9318877813669049, +1.5549465895298402, +1.5655164434822471, +1.8137543460783707, +1.8525340403081780, +1.3900023511010871, +1.2625398437339976, +1.0324189498087097, +1.1882688412690792, +1.3497713797672979, +1.5939277942212353, +1.4660823027448879, +1.0941408305292035, +1.4073260003856616, +1.0898803459302229, +1.7626306993562428, +1.9831095988512626, +1.1082709215913193, +1.2401978547315857, +1.4000206171213789, +1.9004673220372945, +1.5862344950091145, +1.7505652255381881, +1.2847694133445651, +1.9248446656297578, +1.6473157688369675, +1.7504742222483556, +1.4450603622118579, +1.6028796195619697, +1.7604531780262940, +1.6948321043549746, +1.3992018000754249, -0.44408920985006262E-15, +0.11102230246251565E-15, -0.55511151231257827E-15, +0.11102230246251565E-15, -0.44408920985006262E-15, +0.11102230246251565E-15, -0.88817841970012523E-15, +0.55511151231257827E-15, +0.0000000000000000, +0.77715611723760958E-15, +0.0000000000000000, +0.11102230246251565E-15, -0.44408920985006262E-15, +0.33306690738754696E-15, -0.22204460492503131E-15, +0.77715611723760958E-15, +0.11102230246251565E-15, +0.66613381477509392E-15, +0.33306690738754696E-15, -0.11102230246251565E-15, +0.0000000000000000, -0.11102230246251565E-15, +0.11102230246251565E-15, -0.22204460492503131E-15, +0.11102230246251565E-15, +0.11102230246251565E-15, +0.33306690738754696E-15, -0.11102230246251565E-15, -0.33306690738754696E-15, +0.0000000000000000, +0.22204460492503131E-15, -0.44408920985006262E-15, +0.22204460492503131E-15, -0.11102230246251565E-15, +0.11102230246251565E-14, -0.11102230246251565E-15, +0.44408920985006262E-15, -0.22204460492503131E-15, +0.66613381477509392E-15, +0.33306690738754696E-15, +0.77715611723760958E-15, +0.0000000000000000, +0.88817841970012523E-15, -0.11102230246251565E-15, +0.44408920985006262E-15, +0.33306690738754696E-15, +0.66613381477509392E-15, -0.33306690738754696E-15, +0.11102230246251565E-14, +0.11102230246251565E-15, +0.13322676295501878E-14
385reltol = sqrt(epsilon(1._TKG))
386reltol
387+0.14901161193847656E-7
388isClose(data, atad(1:size(data)), reltol = reltol)
389T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
390call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
391
392lenData = getUnifRand(5, 100)
393lenData
394+34
395data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
396data
397+1.93870777550117715486524252351756257, +1.11258149474445104111104032222069592, +1.75091563858864573913355651851550980, +1.26468618220124292909769964109476081, +1.98239632968981537323599101445434131, +1.83955186190386002591843589955580265, +1.76185323679854189411703473688264881, +1.20140389730567167976696854979216398, +1.21781797535575017831131270421303920, +1.09523265452921997590749521144877758, +1.18500292656251137555824443636642966, +1.36222426652188163301493093787129805, +1.22384990246271256316774163787948794, +1.77331216031070121716315154741462229, +1.85922683837983722042206572177517688, +1.67822409592677034909848315010181384, +1.06412212383524501775578959901181391, +1.36636621229873788927612358189439471, +1.89263575632177098183374327447015596, +1.15530755180377292216947056442627861, +1.96092872317319370920018844122105862, +1.12397537135238910740894058617179519, +1.48049661546397837075112942339132843, +1.98273018003262531353777676517344239, +1.84955607162593292984242165727689848, +1.56210486296946250268893533051742477, +1.11899536488322877954969863493017448, +1.53581174271929298469281460031102448, +1.29724524912870942838831563470574240, +1.95079851740701631386195764345915986, +1.32177840636584701882844848613139856, +1.11483626343928315646199836690916853, +1.17158682729265723329912302821257647, +1.13567338697480503101320779364700761
398
399atad = getFFTI(getFFTF(data))
400atad
401+1.93870777550117715486524252351756257, +1.11258149474445104111104032222069611, +1.75091563858864573913355651851550941, +1.26468618220124292909769964109476081, +1.98239632968981537323599101445434189, +1.83955186190386002591843589955580304, +1.76185323679854189411703473688264939, +1.20140389730567167976696854979216437, +1.21781797535575017831131270421303900, +1.09523265452921997590749521144877777, +1.18500292656251137555824443636642947, +1.36222426652188163301493093787129805, +1.22384990246271256316774163787948794, +1.77331216031070121716315154741462268, +1.85922683837983722042206572177517688, +1.67822409592677034909848315010181384, +1.06412212383524501775578959901181372, +1.36636621229873788927612358189439471, +1.89263575632177098183374327447015596, +1.15530755180377292216947056442627861, +1.96092872317319370920018844122105862, +1.12397537135238910740894058617179557, +1.48049661546397837075112942339132824, +1.98273018003262531353777676517344239, +1.84955607162593292984242165727689810, +1.56210486296946250268893533051742439, +1.11899536488322877954969863493017486, +1.53581174271929298469281460031102429, +1.29724524912870942838831563470574201, +1.95079851740701631386195764345916024, +1.32177840636584701882844848613139837, +1.11483626343928315646199836690916853, +1.17158682729265723329912302821257647, +1.13567338697480503101320779364700742, +0.481482486096808963263994485646231830E-33, +0.962964972193617926527988971292463659E-34, -0.674075480535532548569592279904724561E-33, -0.385185988877447170611195588516985464E-33, -0.192592994438723585305597794258492732E-33, -0.577778983316170755916793382775478196E-33, +0.00000000000000000000000000000000000, -0.962964972193617926527988971292463659E-34, +0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000, -0.288889491658085377958396691387739098E-33, -0.962964972193617926527988971292463659E-34, +0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34, +0.192592994438723585305597794258492732E-33, +0.192592994438723585305597794258492732E-33, +0.288889491658085377958396691387739098E-33, +0.00000000000000000000000000000000000, +0.962964972193617926527988971292463659E-34, -0.385185988877447170611195588516985464E-33, +0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34, +0.962964972193617926527988971292463659E-34, +0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33, +0.192592994438723585305597794258492732E-33, +0.288889491658085377958396691387739098E-33, -0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000, -0.962964972193617926527988971292463659E-34
402reltol = sqrt(epsilon(1._TKG))
403reltol
404+0.138777878078144567552953958511352539E-16
405isClose(data, atad(1:size(data)), reltol = reltol)
406T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
407call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
408
409lenData = getUnifRand(5, 100)
410lenData
411+81
412data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
413data
414(+1.99681926, +0.372002065), (+1.23725295, +0.638904512), (+1.00911260, +0.870485544), (+1.48648047, +0.131085873), (+1.66721773, +0.513507485), (+1.05807638, +0.624883711), (+1.96479154, +0.812147081), (+1.48149633, +0.878062189), (+1.70343661, +0.130375624), (+1.01583195, +0.808094919), (+1.88893604, +0.805945039), (+1.17767465, +0.683955669), (+1.79451299, +0.256990492), (+1.62619162, +0.670819521), (+1.33682942, +0.688967943), (+1.15567994, +0.725950420), (+1.51728034, +0.912836373), (+1.80174613, +0.100520253E-1), (+1.33740711, +0.870745420), (+1.60133231, +0.139375389), (+1.57680511, +0.210550129), (+1.39699197, +0.289708436), (+1.23399460, +0.946124434), (+1.18617940, +0.143723130), (+1.87645912, +0.924408793), (+1.05130768, +0.987252355), (+1.21372724, +0.520822763), (+1.83880782, +0.885925114), (+1.20317531, +0.353187799), (+1.14934385, +0.209321856), (+1.38400602, +0.266014874), (+1.08399487, +0.541591585), (+1.98556983, +0.547404230), (+1.31695116, +0.144063592), (+1.64226913, +0.984092176), (+1.43336368, +0.950464725), (+1.28494716, +0.904922426), (+1.35372305, +0.309064269), (+1.45795751, +0.771292150), (+1.72327232, +0.957690954), (+1.52592516, +0.481634140E-1), (+1.11745119, +0.683789968), (+1.23916221, +0.729917467), (+1.34657896, +0.588011086), (+1.02341914, +0.457477927), (+1.27640867, +0.697725296), (+1.13187957, +0.157212734), (+1.34545970, +0.239171386), (+1.03513539, +0.886607111), (+1.85245883, +0.413811207E-2), (+1.73585916, +0.486965656), (+1.13820732, +0.393926263), (+1.35999918, +0.329999149), (+1.79278326, +0.512568295), (+1.38344860, +0.634718597), (+1.45658171, +0.569917262), (+1.76118517, +0.911436558), (+1.53918457, +0.910012424), (+1.51502419, +0.294470131), (+1.62176299, +0.199299037), (+1.76261568, +0.459711552E-1), (+1.77542055, +0.726981342), (+1.52999568, +0.921018541), (+1.42202365, +0.718092918E-2), (+1.71423006, +0.379624367E-1), (+1.61326039, +0.175554812), (+1.15144193, +0.566154718), (+1.73084366, +0.636317968), (+1.90115523, +0.569695055), (+1.18744302, +0.778960824), (+1.44525337, +0.132865965), (+1.70037317, +0.505171835), (+1.09411955, +0.749098301), (+1.93418789, +0.384989440), (+1.66919398, +0.434597075), (+1.93904340, +0.971053660), (+1.22380972, +0.548597693), (+1.43072200, +0.256451964), (+1.09074438, +0.215130806), (+1.96407533, +0.920273662E-1), (+1.55601907, +0.242096782E-1)
415
416atad = getFFTI(getFFTF(data))
417atad
418(+1.99681926, +0.372002035), (+1.23725307, +0.638904691), (+1.00911224, +0.870485663), (+1.48648024, +0.131085813), (+1.66721761, +0.513507426), (+1.05807626, +0.624883711), (+1.96479130, +0.812146902), (+1.48149621, +0.878062010), (+1.70343685, +0.130375534), (+1.01583219, +0.808095098), (+1.88893592, +0.805945098), (+1.17767453, +0.683955610), (+1.79451287, +0.256990552), (+1.62619162, +0.670819640), (+1.33682930, +0.688967943), (+1.15567994, +0.725950360), (+1.51728010, +0.912836432), (+1.80174613, +0.100520840E-1), (+1.33740711, +0.870745420), (+1.60133195, +0.139375493), (+1.57680488, +0.210550189), (+1.39699197, +0.289708495), (+1.23399425, +0.946124494), (+1.18617928, +0.143723220), (+1.87645900, +0.924408972), (+1.05130768, +0.987252355), (+1.21372712, +0.520822883), (+1.83880758, +0.885924995), (+1.20317531, +0.353187799), (+1.14934373, +0.209321976), (+1.38400578, +0.266014993), (+1.08399487, +0.541591406), (+1.98556960, +0.547404051), (+1.31695104, +0.144063562), (+1.64226902, +0.984091938), (+1.43336391, +0.950464487), (+1.28494704, +0.904922247), (+1.35372293, +0.309064090), (+1.45795727, +0.771291971), (+1.72327232, +0.957690716), (+1.52592528, +0.481633246E-1), (+1.11745119, +0.683789849), (+1.23916197, +0.729917288), (+1.34657896, +0.588011026), (+1.02341902, +0.457477748), (+1.27640867, +0.697725177), (+1.13187957, +0.157212704), (+1.34545958, +0.239171326), (+1.03513503, +0.886606932), (+1.85245848, +0.413803849E-2), (+1.73585880, +0.486965537), (+1.13820720, +0.393926114), (+1.35999894, +0.329998881), (+1.79278290, +0.512568116), (+1.38344836, +0.634718180), (+1.45658159, +0.569917142), (+1.76118493, +0.911436558), (+1.53918433, +0.910012126), (+1.51502395, +0.294469982), (+1.62176299, +0.199298918), (+1.76261556, +0.459710583E-1), (+1.77542019, +0.726981163), (+1.52999544, +0.921018243), (+1.42202365, +0.718096271E-2), (+1.71422982, +0.379624069E-1), (+1.61326039, +0.175554752), (+1.15144193, +0.566154599), (+1.73084378, +0.636317909), (+1.90115511, +0.569694936), (+1.18744290, +0.778960884), (+1.44525337, +0.132865936), (+1.70037329, +0.505171657), (+1.09411931, +0.749098420), (+1.93418789, +0.384989530), (+1.66919386, +0.434597075), (+1.93904328, +0.971053779), (+1.22380960, +0.548597813), (+1.43072200, +0.256452084), (+1.09074438, +0.215130776), (+1.96407557, +0.920275748E-1), (+1.55601883, +0.242097080E-1), (+0.00000000, -0.298954546E-6), (+0.298023224E-6, -0.178813934E-6), (+0.298023224E-6, -0.149011612E-7), (+0.238418579E-6, +0.119209290E-6), (+0.596046448E-7, -0.149011612E-7), (+0.298023224E-6, +0.178813934E-6), (+0.357627869E-6, +0.186264515E-6), (-0.119209290E-6, -0.238418579E-6), (+0.00000000, -0.238418579E-6), (+0.119209290E-6, -0.596046448E-7), (+0.00000000, -0.178813934E-6), (-0.596046448E-7, -0.596046448E-7), (+0.00000000, -0.126659870E-6), (+0.178813934E-6, +0.745058060E-7), (+0.596046448E-7, +0.894069672E-7), (-0.119209290E-6, +0.178813934E-6), (+0.596046448E-7, +0.119209290E-6), (+0.119209290E-6, +0.298023224E-6), (+0.298023224E-6, +0.327825546E-6), (-0.119209290E-6, +0.268220901E-6), (+0.00000000, +0.238418579E-6), (+0.596046448E-7, +0.357627869E-6), (+0.178813934E-6, +0.357627869E-6), (+0.119209290E-6, -0.298023224E-7), (+0.178813934E-6, +0.00000000), (+0.596046448E-7, +0.238418579E-6), (+0.119209290E-6, +0.894069672E-7), (-0.119209290E-6, -0.894069672E-7), (+0.238418579E-6, +0.00000000), (+0.596046448E-7, +0.178813934E-6), (+0.119209290E-6, +0.119209290E-6), (+0.596046448E-7, +0.178813934E-6), (+0.238418579E-6, +0.164611265E-6), (+0.119209290E-6, +0.298023224E-6), (+0.178813934E-6, +0.178813934E-6), (+0.298023224E-6, +0.894069672E-7), (+0.119209290E-6, +0.208616257E-6), (+0.596046448E-7, +0.447034836E-6), (+0.238418579E-6, +0.238418579E-6), (+0.298023224E-6, -0.208616257E-6), (+0.476837158E-6, +0.208616257E-6), (+0.238418579E-6, +0.298023224E-7), (+0.178813934E-6, +0.156462193E-6), (+0.00000000, -0.126659870E-6), (+0.298023224E-6, +0.298023224E-7), (-0.119209290E-6, +0.238418579E-6), (+0.00000000, +0.115483999E-6)
419reltol = sqrt(epsilon(1._TKG))
420reltol
421+0.345266977E-3
422isClose(data, atad(1:size(data)), reltol = reltol)
423T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
424call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
425
426lenData = getUnifRand(5, 100)
427lenData
428+39
429data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
430data
431(+1.8666753723370619, +0.94658445063516505E-1), (+1.7805610546331048, +0.76455815436030738), (+1.1522175977371396, +0.10413405249777696), (+1.9935436340857902, +0.20098273937509958E-2), (+1.6930789490210305, +0.40837343924161029), (+1.8002964343134662, +0.63633674159852438E-1), (+1.5176972507309503, +0.80104317524836943), (+1.7481620974241414, +0.38456700762221807), (+1.2939989649925847, +0.72411178064544901), (+1.1275117238248862, +0.36516117048634344), (+1.5490715940845199, +0.49482144887890089), (+1.0137327487332644, +0.96839004379971727), (+1.9374060260488148, +0.15195925566314994E-1), (+1.4074992338286858, +0.32987477477282146E-1), (+1.8403141205895444, +0.51400873569928673), (+1.0649130651762766, +0.13294773727529852E-1), (+1.8892277209815211, +0.70266502812000653), (+1.7220538463408128, +0.73738464559494898), (+1.9316870511382456, +0.66384471936709055), (+1.6540903789874226, +0.49575226309845266), (+1.2031428406433795, +0.51845753952604912), (+1.6341380142795900, +0.96990889072384079), (+1.2679313875791212, +0.36065520081342251), (+1.8856020067552717, +0.78191646245567537), (+1.2889731703073322, +0.66868944394009489), (+1.3128622619311701, +0.78428859336545576), (+1.1093282431667499, +0.32853779906595404), (+1.7024684793892320, +0.55313308794266580), (+1.2330981568769566, +0.98447149920942290), (+1.2808350496317817, +0.51499501986848595), (+1.8400294868733265, +0.57361981114989724), (+1.2181889126404557, +0.72827710291745518), (+1.4133996054010169, +0.33454767925810314), (+1.2314913605045847, +0.13971141821648780), (+1.1559145275831761, +0.46448579895057363), (+1.4833250608574522, +0.99646767738198327), (+1.5965931128354973, +0.84426591901464043), (+1.1644979591108258, +0.16053687174840070), (+1.4103906583845403, +0.82759063837992175)
432
433atad = getFFTI(getFFTF(data))
434atad
435(+1.8666753723370619, +0.94658445063516505E-1), (+1.7805610546331048, +0.76455815436030772), (+1.1522175977371389, +0.10413405249777732), (+1.9935436340857895, +0.20098273937511069E-2), (+1.6930789490210305, +0.40837343924161024), (+1.8002964343134660, +0.63633674159852743E-1), (+1.5176972507309499, +0.80104317524836943), (+1.7481620974241412, +0.38456700762221796), (+1.2939989649925847, +0.72411178064544912), (+1.1275117238248862, +0.36516117048634378), (+1.5490715940845194, +0.49482144887890095), (+1.0137327487332644, +0.96839004379971694), (+1.9374060260488148, +0.15195925566315327E-1), (+1.4074992338286858, +0.32987477477282270E-1), (+1.8403141205895437, +0.51400873569928685), (+1.0649130651762764, +0.13294773727530504E-1), (+1.8892277209815211, +0.70266502812000620), (+1.7220538463408128, +0.73738464559494898), (+1.9316870511382456, +0.66384471936709011), (+1.6540903789874224, +0.49575226309845233), (+1.2031428406433795, +0.51845753952604900), (+1.6341380142795900, +0.96990889072384090), (+1.2679313875791212, +0.36065520081342217), (+1.8856020067552715, +0.78191646245567492), (+1.2889731703073324, +0.66868944394009466), (+1.3128622619311701, +0.78428859336545553), (+1.1093282431667497, +0.32853779906595371), (+1.7024684793892320, +0.55313308794266536), (+1.2330981568769563, +0.98447149920942256), (+1.2808350496317813, +0.51499501986848584), (+1.8400294868733260, +0.57361981114989624), (+1.2181889126404553, +0.72827710291745462), (+1.4133996054010169, +0.33454767925810303), (+1.2314913605045845, +0.13971141821648780), (+1.1559145275831761, +0.46448579895057340), (+1.4833250608574522, +0.99646767738198261), (+1.5965931128354969, +0.84426591901464065), (+1.1644979591108253, +0.16053687174840073), (+1.4103906583845403, +0.82759063837992131), (+0.0000000000000000, -0.33306690738754696E-15), (+0.11102230246251565E-15, -0.22204460492503131E-15), (+0.22204460492503131E-15, -0.24980018054066022E-15), (+0.44408920985006262E-15, -0.22204460492503131E-15), (+0.33306690738754696E-15, -0.11102230246251565E-15), (+0.44408920985006262E-15, -0.22204460492503131E-15), (+0.11102230246251565E-15, -0.26367796834847468E-15), (+0.44408920985006262E-15, -0.16653345369377348E-15), (+0.22204460492503131E-15, -0.31918911957973251E-15), (-0.11102230246251565E-15, +0.27755575615628914E-15), (-0.22204460492503131E-15, +0.11102230246251565E-15), (+0.0000000000000000, +0.11102230246251565E-15), (+0.11102230246251565E-15, -0.27755575615628914E-16), (-0.22204460492503131E-15, -0.11102230246251565E-15), (-0.33306690738754696E-15, -0.27755575615628914E-15), (+0.33306690738754696E-15, +0.11102230246251565E-15), (-0.11102230246251565E-15, +0.16653345369377348E-15), (+0.0000000000000000, +0.11102230246251565E-15), (+0.0000000000000000, +0.22204460492503131E-15), (+0.22204460492503131E-15, +0.52735593669694936E-15), (+0.0000000000000000, +0.55511151231257827E-15), (+0.44408920985006262E-15, -0.55511151231257827E-16), (+0.22204460492503131E-15, +0.55511151231257827E-16), (+0.22204460492503131E-15, +0.83266726846886741E-15), (+0.33306690738754696E-15, +0.49960036108132044E-15)
436reltol = sqrt(epsilon(1._TKG))
437reltol
438+0.14901161193847656E-7
439isClose(data, atad(1:size(data)), reltol = reltol)
440T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
441call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
442
443lenData = getUnifRand(5, 100)
444lenData
445+93
446data = 1._TKG + getUnifRand((0._TKG, 0._TKG), (1._TKG, 1._TKG), lenData)
447data
448(+1.04659790185457052160102041486032279, +0.520541524884682493971585343679672926), (+1.58883568976356764424612275269732477, +0.925429464145781948643125683264905403), (+1.84924945515625439424652501642788924, +0.131345220836748067653725217697564356), (+1.71204375440346393351525621528217727, +0.936870592230822709871723612166150350), (+1.51939973606986929951200328480685154, +0.207997298316057193296190496402207025), (+1.57889263331410138918960951120572322, +0.543215549225221434796075456563637018), (+1.69313054657411280558643451046512496, +0.633529067969464776153663236057913788), (+1.19910084703919218517416143179228779, +0.509615489056468728198234546951986280), (+1.68127568838919291863184335944426338, +0.490636583036210478931588353138567149), (+1.96862498422788316696204410069873948, +0.480878784784332607283236986835480129), (+1.31356860489396499963275886972049348, +0.318359154938662516152887236004565010), (+1.38044320439841317534969690083614103, +0.256984553014985494488628852187746889), (+1.38789046662757045017053024765493114, +0.175696992134848613326327741179565792), (+1.49645842267932816145875054538593197, +0.397293470635772072674655662582393072), (+1.69870447748136718296779779313641088, +0.524128563814763503960966292406588633), (+1.15079425526173965347274755475532201, +0.213283150702528041469317590427994665), (+1.58017219272774922194241439360267138, +0.220830508459499886263992298466956157), (+1.22258076652581182997448659367582728, +0.974205744144204996095043504241813390), (+1.87206445041222531752986396849117252, +0.829261176852427819999052644753013833), (+1.82840870876288691182942281585517458, +0.133530851973215936423648152266408877), (+1.11622942426059666431430391530505956, +0.546832562919165884067890801315207523), (+1.64351965658838757660362884706808370, +0.714066692338919837401964442612332924), (+1.77805119185954280400768255238283569, +0.804563359887128687618306816849978957), (+1.26626946566280756735493669122503380, +0.433484711813022047507001666850963032), (+1.57453498601681433295677905576533148, +0.859149718717485402096740852335762743), (+1.38163386077304837842761052327318442, +0.831993340132310660412501118657415165), (+1.10993193662125562030914085668305586, +0.176449547970861164338119771836717300), (+1.41449112385437928986219727894881664, +0.478727666807862752866795099701929907), (+1.95148010281361054659028703817662256, +0.398671748407065590130939835860882665), (+1.58479435330579803605668084083873949, +0.933192354021580752213876378078756773), (+1.17693281594847338122427259998167088, +0.644308368403438394171659009489715743), (+1.00607460858939321424174814886531437, +0.965260548469642367325150655763211014), (+1.06717282823689861280460847873283194, +0.727458830537959049024125273691531721E-1), (+1.03554540326790695695263719357886573, +0.992994596830682413441557717432635412), (+1.98252071177796233936053490094716925, +0.560767772077578190310752723504522680), (+1.81376503408435688827245310923282754, +0.623501390134301984538925852698208233), (+1.07774952028868481154880767874141481, +0.351748613586362313505007706395897803), (+1.02450358733121117882986275350303095, +0.108014018477665838947307291246467533), (+1.88627029278582923358880239471579338, +0.276457316956784592448239916403067840), (+1.94290880004272402795493254416297747, +0.835868537705376324420166754245062695), (+1.62140490982672647222891819669465028, +0.888673255713409824686097191272738797), (+1.77042223226688038901649683115974597, +0.440960275945157514782318560895321495), (+1.82313131286882339627990719650076449, +0.328955999743530048334572462842725956), (+1.64319139673261541103692462385712841, +0.725653291930045164703130007723297045), (+1.40799491394923274112292592125640913, +0.288541229172698335825695102247239448E-1), (+1.19878508401350563183078037202217133, +0.769050984038722165503710187013920826), (+1.30007181046362897455157087702724612, +0.199979525524591521776188126935146465), (+1.13521247084250524028295928504209756, +0.268053555177529557332932323218713569), (+1.26088163558954666926181930344448680, +0.694580591576886320014670359428668861), (+1.85380617794773735916673207475696835, +0.673956853060447119091874890129257459), (+1.75208880147026587110782301573806389, +0.158491516956435867209131860156325484), (+1.43413944101773377128844424455305416, +0.882175007636023717908428465335851054), (+1.83370972353207381772783660772320070, +0.543275540262072612428176676257411409), (+1.17394118602829466612708649675204149, +0.268707695121465413996545738634540595E-1), (+1.87580815590274258674870868506095466, +0.240767090827993557712655826470481852), (+1.82657078057840099489742060578260475, +0.767898913927030327478979210982583863), (+1.68401986022881137079643422430871364, +0.604498000927375977153236614876693579), (+1.13073937994001569084933833095580979, +0.935151097816060654194427789622027197), (+1.38849186458294672477008440928473336, +0.196845934651264733122738112688696564), (+1.51412236927035453547280268247892026, +0.968636636718257221171109816065164940), (+1.74865343810561071694444390906246309, +0.362096437509123662264031322459471179), (+1.88958294653310306090183485951851407, +0.945340576296027418700411948530865989E-1), (+1.47523684484462520664976614777979587, +0.826095511402239011518457920629050003), (+1.73714749418837404498976774181779087, +0.778852258549922202500954963640202413), (+1.44094676809988995354775673421510726, +0.703189711224469700550026550819130956), (+1.06072697157206027989777115232847418, +0.180301531476126490898582079694241561E-1), (+1.53022517314824876070410466732088882, +0.356276883146936714095122143120537205), (+1.04738147913875535285064477307145549, +0.146394349705419766080924828869418793), (+1.82324222801791760807142409197900488, +0.211357531476352556687759765451690489), (+1.57958613877849044964224115386765438, +0.109446377865511320622548218624986355), (+1.90043622109425871874463150663040934, +0.646115269454583433906374276895845068), (+1.64553334747465380505626326753108994, +0.638698674732894799009461486407204993), (+1.77114180784438989215115269982101295, +0.680530173151091031579407053816731333), (+1.02772969855419943491528874850088495, +0.310399224242767286021032569139078414), (+1.44968760441817423987916746813530703, +0.602184467465125015599363712785382630), (+1.94038126940454758434876293447059928, +0.630373070852657620431362918097812172), (+1.55653317301549903449405283614018910, +0.838766938722771238431454563563046933), (+1.77688953995491076099700120976646318, +0.927859286199466883642965679022852203), (+1.72434138699682835919840335814454439, +0.257703846401351370471919562606240179), (+1.03028365324438613096798008347035996, +0.477638061104874129810283179936736106), (+1.48871888457685267992243854029122170, +0.366591931724477465313849946682745504), (+1.00947894964309628378084821169168933, +0.133208631636877438193166549612596553), (+1.75467144165169884996388258864308345, +0.445463255214708124780989400879893599), (+1.11518158274243570033505925069846739, +0.528480173144687841030341581680021150), (+1.47568583084265883839291079462506613, +0.126118454602813738568304491891973616), (+1.25181167840514852740540311643447326, +0.236964198088511249058024560918195306), (+1.50641689268819650367226272604731432, +0.668312865668436020156409562286333621), (+1.35425059979666644090584115385228018, +0.188319336391087377576356798045195842), (+1.48144835675596115722506695855729668, +0.109629489882107720066229585007634713), (+1.55111068443126212702601773669114914, +0.593863059763354960156332000952667824), (+1.43393419006415903255698215137910488, +0.336718085601107773896570255931679297), (+1.31890301957287914869160418228005854, +0.218910080754371417041719191936545807), (+1.37430178505205663407152647199012886, +0.130276438622844205606419759288772878)
449
450atad = getFFTI(getFFTF(data))
451atad
452(+1.04659790185457052160102041486032298, +0.520541524884682493971585343679672830), (+1.58883568976356764424612275269732477, +0.925429464145781948643125683264905210), (+1.84924945515625439424652501642788943, +0.131345220836748067653725217697564260), (+1.71204375440346393351525621528217766, +0.936870592230822709871723612166150158), (+1.51939973606986929951200328480685173, +0.207997298316057193296190496402206880), (+1.57889263331410138918960951120572322, +0.543215549225221434796075456563636825), (+1.69313054657411280558643451046512458, +0.633529067969464776153663236057913691), (+1.19910084703919218517416143179228798, +0.509615489056468728198234546951985991), (+1.68127568838919291863184335944426358, +0.490636583036210478931588353138567341), (+1.96862498422788316696204410069873986, +0.480878784784332607283236986835480273), (+1.31356860489396499963275886972049387, +0.318359154938662516152887236004564913), (+1.38044320439841317534969690083614123, +0.256984553014985494488628852187746600), (+1.38789046662757045017053024765493095, +0.175696992134848613326327741179565744), (+1.49645842267932816145875054538593236, +0.397293470635772072674655662582393023), (+1.69870447748136718296779779313641107, +0.524128563814763503960966292406588633), (+1.15079425526173965347274755475532220, +0.213283150702528041469317590427994713), (+1.58017219272774922194241439360267119, +0.220830508459499886263992298466956157), (+1.22258076652581182997448659367582728, +0.974205744144204996095043504241813679), (+1.87206445041222531752986396849117290, +0.829261176852427819999052644753013929), (+1.82840870876288691182942281585517497, +0.133530851973215936423648152266408756), (+1.11622942426059666431430391530505937, +0.546832562919165884067890801315207715), (+1.64351965658838757660362884706808428, +0.714066692338919837401964442612333020), (+1.77805119185954280400768255238283569, +0.804563359887128687618306816849978764), (+1.26626946566280756735493669122503399, +0.433484711813022047507001666850962935), (+1.57453498601681433295677905576533129, +0.859149718717485402096740852335762936), (+1.38163386077304837842761052327318442, +0.831993340132310660412501118657415550), (+1.10993193662125562030914085668305624, +0.176449547970861164338119771836717204), (+1.41449112385437928986219727894881684, +0.478727666807862752866795099701929907), (+1.95148010281361054659028703817662217, +0.398671748407065590130939835860882954), (+1.58479435330579803605668084083873988, +0.933192354021580752213876378078757254), (+1.17693281594847338122427259998167088, +0.644308368403438394171659009489715935), (+1.00607460858939321424174814886531437, +0.965260548469642367325150655763211496), (+1.06717282823689861280460847873283175, +0.727458830537959049024125273691532443E-1), (+1.03554540326790695695263719357886573, +0.992994596830682413441557717432635893), (+1.98252071177796233936053490094716944, +0.560767772077578190310752723504522680), (+1.81376503408435688827245310923282793, +0.623501390134301984538925852698208522), (+1.07774952028868481154880767874141500, +0.351748613586362313505007706395897899), (+1.02450358733121117882986275350303115, +0.108014018477665838947307291246467605), (+1.88627029278582923358880239471579357, +0.276457316956784592448239916403067936), (+1.94290880004272402795493254416297804, +0.835868537705376324420166754245062888), (+1.62140490982672647222891819669465048, +0.888673255713409824686097191272739086), (+1.77042223226688038901649683115974636, +0.440960275945157514782318560895321929), (+1.82313131286882339627990719650076487, +0.328955999743530048334572462842726148), (+1.64319139673261541103692462385712918, +0.725653291930045164703130007723297431), (+1.40799491394923274112292592125640913, +0.288541229172698335825695102247239448E-1), (+1.19878508401350563183078037202217133, +0.769050984038722165503710187013921019), (+1.30007181046362897455157087702724631, +0.199979525524591521776188126935146682), (+1.13521247084250524028295928504209794, +0.268053555177529557332932323218713761), (+1.26088163558954666926181930344448680, +0.694580591576886320014670359428668861), (+1.85380617794773735916673207475696874, +0.673956853060447119091874890129257748), (+1.75208880147026587110782301573806409, +0.158491516956435867209131860156325821), (+1.43413944101773377128844424455305454, +0.882175007636023717908428465335851439), (+1.83370972353207381772783660772320070, +0.543275540262072612428176676257411409), (+1.17394118602829466612708649675204187, +0.268707695121465413996545738634540114E-1), (+1.87580815590274258674870868506095485, +0.240767090827993557712655826470481949), (+1.82657078057840099489742060578260552, +0.767898913927030327478979210982583863), (+1.68401986022881137079643422430871383, +0.604498000927375977153236614876693771), (+1.13073937994001569084933833095580979, +0.935151097816060654194427789622027679), (+1.38849186458294672477008440928473355, +0.196845934651264733122738112688696950), (+1.51412236927035453547280268247892045, +0.968636636718257221171109816065165325), (+1.74865343810561071694444390906246309, +0.362096437509123662264031322459471371), (+1.88958294653310306090183485951851484, +0.945340576296027418700411948530866230E-1), (+1.47523684484462520664976614777979587, +0.826095511402239011518457920629050196), (+1.73714749418837404498976774181779145, +0.778852258549922202500954963640202798), (+1.44094676809988995354775673421510726, +0.703189711224469700550026550819130860), (+1.06072697157206027989777115232847418, +0.180301531476126490898582079694240598E-1), (+1.53022517314824876070410466732088844, +0.356276883146936714095122143120537350), (+1.04738147913875535285064477307145530, +0.146394349705419766080924828869418793), (+1.82324222801791760807142409197900527, +0.211357531476352556687759765451690393), (+1.57958613877849044964224115386765477, +0.109446377865511320622548218624986162), (+1.90043622109425871874463150663040934, +0.646115269454583433906374276895845261), (+1.64553334747465380505626326753109052, +0.638698674732894799009461486407205089), (+1.77114180784438989215115269982101295, +0.680530173151091031579407053816731526), (+1.02772969855419943491528874850088495, +0.310399224242767286021032569139078270), (+1.44968760441817423987916746813530703, +0.602184467465125015599363712785382919), (+1.94038126940454758434876293447059947, +0.630373070852657620431362918097812364), (+1.55653317301549903449405283614018891, +0.838766938722771238431454563563047030), (+1.77688953995491076099700120976646356, +0.927859286199466883642965679022852781), (+1.72434138699682835919840335814454439, +0.257703846401351370471919562606240371), (+1.03028365324438613096798008347035996, +0.477638061104874129810283179936736443), (+1.48871888457685267992243854029122151, +0.366591931724477465313849946682745408), (+1.00947894964309628378084821169168914, +0.133208631636877438193166549612596409), (+1.75467144165169884996388258864308345, +0.445463255214708124780989400879893503), (+1.11518158274243570033505925069846739, +0.528480173144687841030341581680021439), (+1.47568583084265883839291079462506632, +0.126118454602813738568304491891973448), (+1.25181167840514852740540311643447383, +0.236964198088511249058024560918195402), (+1.50641689268819650367226272604731432, +0.668312865668436020156409562286333717), (+1.35425059979666644090584115385228056, +0.188319336391087377576356798045196010), (+1.48144835675596115722506695855729668, +0.109629489882107720066229585007634569), (+1.55111068443126212702601773669114914, +0.593863059763354960156332000952668209), (+1.43393419006415903255698215137910488, +0.336718085601107773896570255931679586), (+1.31890301957287914869160418228005834, +0.218910080754371417041719191936546071), (+1.37430178505205663407152647199012866, +0.130276438622844205606419759288772709), (-0.481482486096808963263994485646231830E-33, +0.962964972193617926527988971292463659E-34), (-0.674075480535532548569592279904724561E-33, +0.481482486096808963263994485646231830E-34), (-0.481482486096808963263994485646231830E-33, +0.192592994438723585305597794258492732E-33), (-0.288889491658085377958396691387739098E-33, +0.240741243048404481631997242823115915E-34), (-0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000), (-0.385185988877447170611195588516985464E-33, -0.240741243048404481631997242823115915E-33), (-0.385185988877447170611195588516985464E-33, +0.962964972193617926527988971292463659E-34), (+0.192592994438723585305597794258492732E-33, +0.722223729145213444895991728469347744E-34), (-0.674075480535532548569592279904724561E-33, +0.120370621524202240815998621411557957E-33), (-0.577778983316170755916793382775478196E-33, +0.192592994438723585305597794258492732E-33), (+0.00000000000000000000000000000000000, +0.481482486096808963263994485646231830E-34), (-0.192592994438723585305597794258492732E-33, -0.385185988877447170611195588516985464E-33), (-0.770371977754894341222391177033970927E-33, -0.433334237487128066937595037081608647E-33), (-0.481482486096808963263994485646231830E-33, -0.288889491658085377958396691387739098E-33), (-0.481482486096808963263994485646231830E-33, -0.288889491658085377958396691387739098E-33), (-0.481482486096808963263994485646231830E-33, -0.192592994438723585305597794258492732E-33), (-0.674075480535532548569592279904724561E-33, -0.337037740267766274284796139952362281E-33), (-0.481482486096808963263994485646231830E-33, -0.168518870133883137142398069976181140E-33), (-0.385185988877447170611195588516985464E-33, -0.240741243048404481631997242823115915E-34), (+0.00000000000000000000000000000000000, +0.00000000000000000000000000000000000), (-0.770371977754894341222391177033970927E-33, -0.144444745829042688979198345693869549E-33), (-0.192592994438723585305597794258492732E-33, -0.144444745829042688979198345693869549E-33), (-0.288889491658085377958396691387739098E-33, -0.337037740267766274284796139952362281E-33), (-0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000), (-0.385185988877447170611195588516985464E-33, +0.00000000000000000000000000000000000), (-0.674075480535532548569592279904724561E-33, -0.192592994438723585305597794258492732E-33), (-0.385185988877447170611195588516985464E-33, -0.962964972193617926527988971292463659E-34), (-0.192592994438723585305597794258492732E-33, -0.288889491658085377958396691387739098E-33), (-0.481482486096808963263994485646231830E-33, -0.674075480535532548569592279904724561E-33), (+0.00000000000000000000000000000000000, -0.397223051029867394692795450658141259E-33), (-0.192592994438723585305597794258492732E-33, -0.722223729145213444895991728469347744E-33), (-0.481482486096808963263994485646231830E-33, -0.192592994438723585305597794258492732E-33), (-0.674075480535532548569592279904724561E-33, -0.650001356230692100406392555622412970E-33), (-0.288889491658085377958396691387739098E-33, -0.433334237487128066937595037081608647E-33), (-0.577778983316170755916793382775478196E-33, -0.577778983316170755916793382775478196E-33)
453reltol = sqrt(epsilon(1._TKG))
454reltol
455+0.138777878078144567552953958511352539E-16
456isClose(data, atad(1:size(data)), reltol = reltol)
457T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
458call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
459
460lenData = getUnifRand(5, 100)
461lenData
462+8
463data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
464data
465+1.02531135, +1.08611643, +1.89170456, +1.14757037, +1.22844362, +1.97443938, +1.29895043, +1.01872802
466
467atad = getFFTI(getFFTF(data))
468atad
469+1.02531147, +1.08611655, +1.89170468, +1.14757037, +1.22844362, +1.97443938, +1.29895055, +1.01872802
470reltol = sqrt(epsilon(1._TKG))
471reltol
472+0.345266977E-3
473isClose(data, atad(1:size(data)), reltol = reltol)
474T, T, T, T, T, T, T, T
475call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
476
477lenData = getUnifRand(5, 100)
478lenData
479+29
480data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
481data
482+1.0627838424370417, +1.0692080529647083, +1.7744814667573583, +1.1123858969973237, +1.1297742787363452, +1.8462076802051022, +1.5605794872066718, +1.2218373889639591, +1.1365190860083991, +1.2748737613342342, +1.2319982664200113, +1.5901578597846597, +1.0329771221460335, +1.8115653437198154, +1.0747506735740815, +1.6152289578324184, +1.1160316034353133, +1.9557960594623316, +1.9848008170997067, +1.6054495311939094, +1.5645272925565867, +1.5932360370383529, +1.1277270015119825, +1.0689960296784327, +1.1935642360242724, +1.3831912576796979, +1.1135736865037529, +1.6828240606748304, +1.3733839751742898
483
484atad = getFFTI(getFFTF(data))
485atad
486+1.0627838424370419, +1.0692080529647088, +1.7744814667573583, +1.1123858969973242, +1.1297742787363452, +1.8462076802051022, +1.5605794872066714, +1.2218373889639595, +1.1365190860083991, +1.2748737613342347, +1.2319982664200115, +1.5901578597846597, +1.0329771221460338, +1.8115653437198156, +1.0747506735740817, +1.6152289578324179, +1.1160316034353133, +1.9557960594623318, +1.9848008170997065, +1.6054495311939099, +1.5645272925565867, +1.5932360370383529, +1.1277270015119825, +1.0689960296784329, +1.1935642360242726, +1.3831912576796981, +1.1135736865037529, +1.6828240606748304, +1.3733839751742896, +0.88817841970012523E-15, +0.11102230246251565E-15, +0.44408920985006262E-15
487reltol = sqrt(epsilon(1._TKG))
488reltol
489+0.14901161193847656E-7
490isClose(data, atad(1:size(data)), reltol = reltol)
491T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
492call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
493
494lenData = getUnifRand(5, 100)
495lenData
496+45
497data = 1._TKG + getUnifRand(0._TKG, 1._TKG, lenData)
498data
499+1.60986682086924138675660440295367146, +1.95689995748934306850002276745764887, +1.21035468625908513129766974736290032, +1.40612999324475486872865967436205874, +1.88576877294641604770783133001451674, +1.97588475279781090871641152673554891, +1.11124402079941995599737889568692225, +1.65510392224597926578239517011723154, +1.47452695597164103841381983518274566, +1.61503639866664527311682679961235019, +1.74793888696955870525123624179049529, +1.31013813505324046465641243672644355, +1.67922954262325044218718777136865797, +1.80063942513435104940543834094712762, +1.67089683972923405808929593863625601, +1.85314353843269185772335731632773170, +1.02977294086854494710467748665900061, +1.14473276552876630907839655331026124, +1.20017232377782375258978163121532586, +1.08590537112562340777968671832289393, +1.96285917896492037306049506485208835, +1.20697673674404628695030699570253640, +1.36365349837417803549968415218707504, +1.69116334201835591305041961330256231, +1.43368797088511355757338608888005491, +1.74543200074927515330202441304775252, +1.03822324092868952168529859115350721, +1.07971918820017871754710919581054794, +1.97989414335115452518377705544027318, +1.44557719653910494239232550710908784, +1.77998759244300890274336743146554807, +1.63806112725608965835096842013360151, +1.01016569434838035192641460934213619, +1.64577681066516722859434648633158173, +1.94845110606122849000234407661674435, +1.91927821930511086350686854142345689, +1.67382782214434861688080128810642815, +1.57919580494819065376212487280240163, +1.17230432989020869992433408040858484, +1.60323423112767555491863133362463283, +1.77262142890492107287663407602022177, +1.05321125106487210253597621009055131, +1.94378642846254297399486477318642921, +1.39765743646449605333250380627906518, +1.32086853965387659414283690331076820
500
501atad = getFFTI(getFFTF(data))
502atad
503+1.60986682086924138675660440295367146, +1.95689995748934306850002276745764887, +1.21035468625908513129766974736290032, +1.40612999324475486872865967436205874, +1.88576877294641604770783133001451693, +1.97588475279781090871641152673554910, +1.11124402079941995599737889568692264, +1.65510392224597926578239517011723135, +1.47452695597164103841381983518274566, +1.61503639866664527311682679961235057, +1.74793888696955870525123624179049587, +1.31013813505324046465641243672644336, +1.67922954262325044218718777136865816, +1.80063942513435104940543834094712743, +1.67089683972923405808929593863625659, +1.85314353843269185772335731632773151, +1.02977294086854494710467748665900061, +1.14473276552876630907839655331026124, +1.20017232377782375258978163121532605, +1.08590537112562340777968671832289373, +1.96285917896492037306049506485208835, +1.20697673674404628695030699570253601, +1.36365349837417803549968415218707523, +1.69116334201835591305041961330256212, +1.43368797088511355757338608888005472, +1.74543200074927515330202441304775232, +1.03822324092868952168529859115350740, +1.07971918820017871754710919581054794, +1.97989414335115452518377705544027318, +1.44557719653910494239232550710908804, +1.77998759244300890274336743146554807, +1.63806112725608965835096842013360190, +1.01016569434838035192641460934213619, +1.64577681066516722859434648633158173, +1.94845110606122849000234407661674473, +1.91927821930511086350686854142345727, +1.67382782214434861688080128810642776, +1.57919580494819065376212487280240182, +1.17230432989020869992433408040858465, +1.60323423112767555491863133362463283, +1.77262142890492107287663407602022177, +1.05321125106487210253597621009055151, +1.94378642846254297399486477318642978, +1.39765743646449605333250380627906498, +1.32086853965387659414283690331076820, -0.192592994438723585305597794258492732E-33, -0.288889491658085377958396691387739098E-33, -0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34, -0.288889491658085377958396691387739098E-33, +0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000, -0.385185988877447170611195588516985464E-33, -0.385185988877447170611195588516985464E-33, -0.962964972193617926527988971292463659E-34, -0.385185988877447170611195588516985464E-33, -0.385185988877447170611195588516985464E-33, -0.192592994438723585305597794258492732E-33, -0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000, +0.192592994438723585305597794258492732E-33, -0.577778983316170755916793382775478196E-33, +0.00000000000000000000000000000000000, -0.481482486096808963263994485646231830E-33
504reltol = sqrt(epsilon(1._TKG))
505reltol
506+0.138777878078144567552953958511352539E-16
507isClose(data, atad(1:size(data)), reltol = reltol)
508T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
509call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
510
511
Test:
test_pm_fftnr


Final Remarks


If you believe this algorithm or its documentation can be improved, we appreciate your contribution and help to edit this page's documentation and source file on GitHub.
For details on the naming abbreviations, see this page.
For details on the naming conventions, see this page.
This software is distributed under the MIT license with additional terms outlined below.

  1. If you use any parts or concepts from this library to any extent, please acknowledge the usage by citing the relevant publications of the ParaMonte library.
  2. If you regenerate any parts/ideas from this library in a programming environment other than those currently supported by this ParaMonte library (i.e., other than C, C++, Fortran, MATLAB, Python, R), please also ask the end users to cite this original ParaMonte library.

This software is available to the public under a highly permissive license.
Help us justify its continued development and maintenance by acknowledging its benefit to society, distributing it, and contributing to it.

Author:
Fatemeh Bagheri, Tuesday 11:34 PM, August 10, 2021, Dallas, TX

Definition at line 428 of file pm_fftnr.F90.


The documentation for this interface was generated from the following file: